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1.  INTRODUCTION 


1 . 1 General 

This  is  the  first  of  a series  of  reports  designed  to  modify, 
consolidate  and  co-ordinate  certain  existing  structural 
computer  programs  to  make  them  compatible  with  current 
building  codes  and  the  IBM  1130/Fortran  IV  language.  This 
report  is  intended  as  a reference  manual  for  the  structural 
engineering  use  of  eight  concrete  beam  and  column  computer 
programs . 

The  following  programs  are  included: 

(1)  Reinforced  concrete  beam  with  a small  axial 
load.  (Selects  reinforcing  steel  for  given 
outside  dimensions. 

(2)  Composite  steel  and  concrete  beam  design. 

(3)  Analysis  of  reinforced  concrete  beam  with 
tensile  reinforcement  only. 
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(4) 


Analysis  of  short,  rectangular  concrete 
columns  subject  to  biaxial  bending. 

(5)  Analysis  of  short,  irregular  concrete  column 
subject  to  biaxial  bending. 

(6)  Rectangular  tied  column  subject  to  planar 
bending  (Load-Moment  envelope  for  short  columns). 

The  original  computer  programs  were  written  in  various 
fortran  forms  including  RCA  301/Fortran,  IBM  1620/Fortran, 
IBM  7044/Fortran  IV,  and  IBM  360/Fortran  IV.  These  have 
all  been  modified  to  IBM  1130/Fortran  operable  with  the 
following  equipment: 

(a)  IBM  1130,  Model  2C,  16K  storage/Version  II 

(b)  IBM  1132  Printer 

(c)  IBM  Card  Read-Punch 

(d)  IBM  2315  Disc  Cartridge,  removable/interchangeable. 

1 . 2 Scope 

Each  program  has  been  checked  for  Building  Code  references, 
and  modified  or  changed  where  necessary  to  meet  ACI  318- 
63  and  AISC-63  specifications. 
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Programs  have  been  debugged  by  performing  an  illustrative 
problem.  No  comprehensive  full  scale  attempt  has  been 
made  to  check  against  manual  solutions  and  establish 
analytical  validity.  The  user  must  satisfy  himself  as 
to  reliability  by  testing  the  program  with  problems  of 
known  solution.  Good  Engineering  practice  dictates  that 
each  program  be  used  initially  as  a checking  analysis 
until  the  User  gains  sufficient  confidence  and  insight 
into  the  program’s  behavior.  The  theoretical  basis  and 
program  abstracts  described  in  Section  2 thru  Section 
7 are  presented  to  provide  the  User  a quick  reference 
as  to  the  general  nature  of  the  program.  Several  of  these 
programs,  notably  l.A.l,  l.B.l  and  1.B.2  have  been 
previously  documented  in  considerable  detail.  If  further 
information  is  required,  reference  can  be  made  to  those 
documents . 

A standard  description  sheet  of  each  program  is  included 
in  the  summary  to  provide  a consolidated  definition  of 
the  program. 
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1 . 3 Program  and  Sample  Problem  Listing 


Program  listings  include  a sample  problem  output  to  illustrate 
the  type  of  solution  provided  by  the  computer.  These 
problems  have  been  used  for  debugging  purposes,  but  are 
not  designed  to  test  the  reliability  of  the  program. 

The  listings  were  taken  directly  from  the  source  decks, 
and  include  all  the  normal  job  control  cards  for  the  IBM 
1130  equipment. 
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2.  PROGRAM  l.A.l  - CONCRETE  BEAM,  AXIALLY  LOADED 


2 . 1 Purpose 

The  purpose  of  Program  l.A.l  is  to  select  reinforcing 

steel  for  an  axially  loaded  concrete  beam  of  given  dimensions. 

2 . 2 Theoretical  Basis 

Analytical  calculations  are  based  on  conventional  "straight 
line"  theory  for  balanced  design.  Allowable  material 
stresses  are  specified  in  accordance  with  ACI  318-6 
recommendation  for  "working  stress  design"  for  beams. 

This  dictates  a loading  situation  free  from  instability 
considerations,  i.e.,  a tension  axial  load  or  a small 
compressive  axial  load. 

2 . 3 Method  of  Execution 

Program  input  includes  the  allowable  steel  stress,  cylinder 
strength  of  concrete,  beam  dimensions,  and  applied  forces 
at  the  cross-section  of  interest. 
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The  program  computes  an  initial  value  of  steel  area  assuming 
balanced  design.  This  value  is  used  to  calculate  the 
necessary  depth  of  the  concrete  compression  zone.  An 
iterative  process  repeats  the  cycle  until  the  computed 
depth  and  used  depth  of  compression  are  approximately 
the  same. 

2 . 4 Input 


Input  parameters  are  read  by  the  computer  in  the  following 
sequence : 


Card  1.  JOB  - Job  Title 


Card  2.  FC 

FS 

WC 


Cylinder  strength  of  concrete,  f£ 
(lbs./sq.  in) 

Allowable  steel  stress,  fs  (lbs./sq.  in.) 
Density  of  concrete  (lbs./cu.  ft.) 


Card  3.  V - Total  shear  (kips) 

M - Moment  at  the  section  (kip-ft.) 

FN  - Axial  force,  + for  compression  (kips) 

DT  - Overall  depth  of  beam  (ins.) 

B - Width  of  Compressive  area  of  beam  (ins.) 
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D - Depth  of  tensile  steel,  d(ins.) 

DP  - Depth  of  compressive  steel,  d'  (ins.). 

Form  S-1A1  illustrates  sample  input  data.  This  input 
information  is  also  included  in  the  program  output  listing 

L-1A1. 

2 . 5 Output 

An  illustration  of  sample  output  is  included;  with  notes, 
after  the  program  listing.  Output  information  includes 
the  following: 

Job  title 

Input  parameters 

Depth  of  compression  zone 

Allowable  shear  and  actual  shear 

Allowable  concrete  stress  and  actual  stress 

Tensile  steel  area  and  stress 

Compressive  steel  area  and  stress. 
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3. 


PROGRAM  1.A.2  - COMPOSITE  BEAM  SECTION  PROPERTIES 


3 . 1 Purpose 

The  purpose  of  Program  1.A.2  is  to  compute  the  bottom 
flange  area  and  the  cross-sectional  characteristics  of 
a concrete  slab  and  steel  beam  composite  section. 

3 . 2 Theoretical  Basis 

All  calculations  assume  elastic  materials  with  no  tensile 
strain  in  the  concrete  slab.  Composite  section  inertia 
computations  are  based  on  strain  continuity  between  steel 
and  concrete.  Non-composite  section  calculations  consider 
only  the  steel  beam,  and  are  to  be  used  for  construction 
loads . 

3.3  Method  of  Execution 

The  program  will  consider  only  one  beam  at  a time;  however, 
the  slab  plus  the  web  and  lower  flange  of  the  steel  beam 
can  be  varied  in  depth  and  width  to  optimize  efficiency 
of  material  geometry. 
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Using  the  input  geometry  and  modular  ratio  of  materials, 
the  computer  generates  the  non-composite  and  composite 
section  modulus  by  the  conventional  method  of  first  locating 
the  neutral  axis  and  then  calculating  the  moment  of  inertia. 

3 . 4 Input 

Input  parameters  are  read  by  the  computer  in  the  following 
sequence : 


Card 

1. 

A 

- Job  Title 

Card 

2. 

XN 

- Modular  Ratio,  n (ACI  318-63) 

NOFWZ 

- Number  of  web  sizes 

ID 

- 0 or  1* 

Card 

3. 

IV  3 

- Width  of  top  flange  of  steel 

(ins . ) 

D3 

- Depth  of  top  flange  of  steel 

(ins . ) 

Card 

4. 

1)4 

- Initial  depth  of  concrete  (in 

s.) 

NID4 

- Number  of  D4  being  generated 

SID4 

- Size  of  increment  added  to  D4 

(ins . 
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T4 

** 

Width-depth  ratio  of  concrete* ** 

Card  5. 

D1 

- 

Initial  depth  of  bottom  flange  (ins.) 

NIDI 

- 

Number  of  Dl's  being  generated 

SID1 

- 

Size  of  increment  for  D1  (ins.) 

Card  6. 

T1 

- 

Initial  width-depth  ratio  of  bottom  flange 

(ID-0) 

NIT1 

- 

Number  of  Tl's  required 

SIT1 

- 

Increment  size  for  T1  (ins.) 

Card  6. 

W1 

- 

Initial  width  of  bottom  flange  (ins.) 

(ID-1) 

NIW1 

- 

Number  of  Wl's  required 

SIW1 

- 

Increment  size  for  W1  (ins.) 

Card  7, 

W2 

- 

Web  thickness  (ins) 

etc . 

D2 

- 

Web  depth  (ins.) 

*11)  is  a control  number  for  bottom  flange  input  where 
"0"  decides  that  Width-depth  ratio  is  to  be  varied,  and 
"1"  decides  that  the  width  will  be  varied,  but  not  the 
thickness . 

**The  width  of  concrete  is  obtained  by  multiplying  D4xT4. 
If  T4  is  left  blank,  the  program  supplys  W4=16D4+W3  as 
required  by  AISC  specifications. 
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4. 


PROGRAM  1.A.3 


CONCRETE  BEAM  REVIEW 


4 . 1 Purpose 

Program  1.A.3  will  analyze  a reinforced  concrete  beam 
with  tension  steel  only.  It  is  more  efficient  than  manual 
analysis  only  if  there  is  a number  of  known  cross-sections 
to  be  considered. 

4 . 2 Theoretical  Basis 

Computations  are  based  on  simple  "working  stress  design" 
as  described  in  the  ACI  Building  Code. 

4 . 3 Method  of  Execution 

The  computer  first  reads  material  characteristics.  It 
next  accepts  any  number  of  cross-section  dimensions.  The 
"WSD"  equations  are  then  solved  for  resisting  moments 
of  concrete  and  steel. 
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4 . 4 Input 


Input  parameters  are  read  into  the  computer  in  the  following 
sequence : 


Card  1. 


FS  - allowable  steel  stress  (psi) 

FC  - allowable  concrete  stress  (psi) 
AN  - modular  ratio,  n 


Card  2.  AS 
etc.  B 
D 


area  of  tension  steel  (sq.  in.) 
width  of  beam  (ins.) 
depth  to  steel  (ins.) 


4 . 5 Output 


Output  symbols  are  defined  as  follows: 

P - ratio  of  steel  to  concrete  (As/bd) 

K - dimensionless  depth  of  compressive  Zone  (k) 
J - dimensionless  internal  moment  arm  ( j ) 

MS  - resisting  moment  of  steel  (kip-ft) 

MC  - resisting  moment  of  concrete  (kip-ft). 


13 


5.  PROGRAM  l.B.l  - BIAXIAL  BENDING  OF  RECTANGULAR  COLUMNS 


5 . 1 Purpose 

Program  l.B.l  analyzes  any  short  rectangular  concrete 
column  subjected  to  biaxial  bending  and  determines  the 
cross-sectional  stress  pattern. 

5 . 2 Theoretical  Basis 

The  method  of  solution  is  based  on  Paper  No.  3239,  Analytical 
Approach  to  Biaxial  Eccentricity  by  E.  Czerniak,  ASCF. 
Proceedings,  Volume  88,  No.  ST4,  August,  1962,  Part  I. 

Theory  is  limited  to  the  two  basic  assumptions:  (A)  plane 

sections  remain  plane;  and  (b)  equilibrium  conditions 
are  satisfied. 

Although  the  original  reference  reportedly  is  generalized 
for  non-linear  materials,  the  program  considers  the  special 
case  where  elasticity  prevails. 
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5.3  Method  of  Execution 


Given  the  applied  forces  (relative  to  center  lines)  and 
the  cross-section  characteristics,  the  computer  employs 
an  iterative  procedure  to  locate  the  neutral  axis  of  the 
transformed  section.  Compressive  reinforcement  is  transformed 
by  the  factor  (2n-l)  to  allow  for  creep. 

The  program  then  computes  the  maximum  concrete  stress 
and  the  steel  stress  for  each  bar. 


5.4  Input 


Input  parameters  are  arranged  in  the  following  sequence: 


Card  1.  Title,  Users  initials  and  date 


Card  2.  T 
D 

* XMX 
XMY 
TIIR 
EN 


- thickness  of  member  along  Y-axis  (ins.) 

- depth  of  member  along  X-axis  (ins.) 

- moment  about  X-axis  centerline  (kip-ft) 

- moment  about  Y-axis  centerline  (kip-ft) 

- compressive  Load  (kips) 

- modular  ratio  of  steel  to  concrete 


*The  X-Y  co-ordinates  are  chosen  so  that  the 
column  edges  with  maximum  compression  lie  on 
the  axes. 
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Card  3.  BARNO  - identification  number  of  re-bars. 

Last  number  must  be  100. 


ACORX  - 

the 

"X"  distance 

to  a 

re-bar . 

(ins) 

ACORY  - 

the 

"Y"  distance 

to  a 

re-bar . 

(ins) 

AREA  - area  of  the  Re-bar  (sq.  ins) 

Card  4.  XLOAD  - If  "0"  read  card  #1;  if  M1M  read 

Card  #5 

Card  5.  XMX  (Card  # 5 is  included  if  a second 

XMY  force  system  is  to  be  applied  to  the 

THR  given  cross-section.) 

5. 5 Output 

Output  of  the  input  data  is  in  the  same  sequence  as  read, 

and  is  identified  by  complete  sentences.  Output  of  calculated 

data  is  self-explanatory,  and  includes  the  following  information 

(a)  Equivalent  eccentricities  of  axial  load. 

(b)  Properties  of  Section  and  stresses  for  the 
given  section. 

(c)  Properties  of  Section  and  Stresses  for  the 
given  section,  but  neglecting  compressive  steel 
in  neutral  axis  solution. 
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6.  PROGRAM  1.R.2  - BIAXIAL  BUNDING  OF  NONPRISMATIC  COLUMN'S 

6. 1 Purpose 

Program  1.B.2  will  analyze  any  shape  concrete  section 
(including  rectangular)  subjected  to  an  axial  load  and 
biaxial  bending.  It  considers  cross-sectional  stress 
pattern,  but  not  column  stability. 

8.2  Theoretical  Basis 


The  following  general  flexure  formula  is  used  to  solve 
for  concrete  stresses: 


f 


Mxc 

M,r  IXoYn 

My0  “ 

Iyn 

Ix0 

(IxqYo)2 

iyo 

My0  - 

H-.  IxoYo 

Ixn 

iyo  - 

■■(IxoYo)2 

Ix0 

yD 


or : 

f = a + bx  + cy 


The  above  equation  defines  the  neutral  axis  location  when 
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f=0.  Theory  is  based  on  linear  analysis  and  does  not 
consider  second  order  buckling.  Thus  the  maximum  length 
of  column  will  be  in  accordance  with  code  restrictions 
as  set  in  ACI  318-63,  Sections  915  and  916. 

6 . 3 Method  of  Execution 

The  program  determines  the  neutral  axes  location  of  the 
transformed  section  using  an  iterative  procedure  to  solve 
the  general  flexure  equation  for  the  case  when  f=0.  The 
computer  then  determines  material  stresses  throughout 
the  section.  The  geometry  of  the  section  is  defined  in 
cartesian  co-ordinates. 

6 . 4 Input 

All  input  must  be  consistent  in  units.  i.e.,  if  the  geometry 
is  measured  in  inches,  then  the  moments  must  be  kip-ins. 

All  output  will  be  in  the  same  system  of  units  as  input. 

Card  1.  Title 

Card  2.  NCON  - The  number  of  intersections  (plus 
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one)  of  concrete  boundry  lines. 

NSTL  - 

Number  of  rows  of  steel 

NLD 

Number  of  sets  of  loads  to  be  considered 

I SWT  I - 

A control  option.  Read  "1"  in  if  it  is 
desirable  to  provide  the  computer  with 
an  estimate  of  the  neutral  axis  location. 

Card  3*  XCON  - 

X co-ordinates  of  concrete  shape  listed 
clockwise.  (counter  clockwise  for  the 
hole  in  a hollow  shaft).  The  origin 
can  be  at  any  convenient  location. 

YCON  - 

MY"  coordinates  corresponding  to  "X" 
coordinates  (not  to  exceed  100  points) 

Card  4**  AS 

Area  of  one  steel  bar 

XI STL  - 

"X"  coordinate  of  one  bar  or  the  first 
bar  in  a row. 

YISTL  - 

"Y"  coordinate  corresponding  to  the 
"X"  coordinate 

BARNO  - 

Number  of  bars  being  described 

X2STL  - 

MX"  Coordinate  of  last  bar  in  the  row 

Y2STL  - 

"Y"  Coordinate  of  last  bar  in  the  row 

*Card  3 represents  a type  for  which  there  will  normally 
be  more  than  one,  since  only  three  points  can  be  located 
by  one  cord. 

**Card  4 represents  a type  for  which  there  will  be  "NSTL"  cards 
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Card  5*  CODE 


L.L.+D.L.) 


*Card  5 
Card  6* 


P 


XM 


YM 


RATIO 

B 


ACCR 


Name  of  Load  (i.e., 

Axial  Load  acting  at  the  origin 
(+=compress ion) 

Moment  about  the  Y axis  with  P 
at  the  origin  (+=clockwise) 

Moment  about  the  Y axis  with  P at 
the  origin  (+=clockwise) 

Modular  Ratio,  n of  steel  to  concrete. 
Ratio  of  the  effective  modulus  of  the 
reinforcement  in  compression  to  that 
in  tension  (normally  2.0  for  creep 
allowance.  Note  that  B=0.()  stimulates 
holes  in  the  compressive  concrete.) 
Accuracy  Desired.  Maximum  al lowable 
Concrete  Stress  change  betiveen  final 
iterations  (e.g.,  .010  k.s.i.) 


represents  a type  for  which  there  will  be  "NLDM  cards. 


IDENT  - Any  interger  used  to  identify  the 
"first  guess  card." 

S - Estimate  of  the  neutral  axis  x-coefficient 
T - Estimate  of  the  neutral  axis  y-coef f ic ient 
U - The  constant  term 
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' ■ 


*Card  6 is  an  optional  card  not  normally  used.  It 
is  only  to  be  included  if  ISW1  has  been  read  as  "1". 

This  program  has  a "stacked  job  capability."  After  all 
load  cases  have  been  computed  for  the  first  cross-section, 
the  computer  returns  and  looks  for  a new  job  Title  (Card 
1) . If  the  user  prefers  to  retain  the  concrete  shape 
and  vary  the  steel  arrangement,  he  can  do  so  by  placing 
a zero  in  column  10  of  Card  2 of  the  second  set  of  cards. 
This  signals  the  computer  to  next  read  the  steel  Card 
4 and  use  the  concrete  shape  defined  on  the  original  Card 
3. 

68 . 5 Output 

Output  data  is  in  the  same  units  as  the  input  and  includes 
the  following: 

P - Given  axial  load 

MX  - Given  moment  about  Y-axis  (XM) 

MY  - Given  moment  about  X-axis  (YM) 

N - Modular  ratio  given  (RATIO) 

R - Ratio  of  effective  compressive  steel  (B) 
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ITERATION  COUNT 
GENERAL  FORMULA 


Number  of  trials  to  locate  neutral  axes. 
Gives  numerical  values  of  the  flexure 
formula  coefficients. 


The  computer  than  lists  material  stresses  and 
Negative  stresses  indicate  tensile  zones. 


locations . 


22 


7.  PROGRAM  1.B.3  - TIED  CONCRETE  COLUMNS,  PLANAR  BENDING 


7 . 1 Purpose 

Program  1.B.3  analyzes  a concrete  column  of  known  cross- 
section  and  develops  the  allowable  load-moment  envelope 
(interaction)  curve  for  working  stress  design  as  defined 
by  the  ACI  318-63  building  code. 

7 . 2 Theoretical  Basis 

Computations  are  based  on  ACI  equations  for  working  stress 
design  contained  in  Chapter  14  of  ACI318-63.  No  provision 
is  made  for  long  slender  columns  as  defined  by  Section 
915  of  the  ACI  code.  Referring  to  ACI  notation,  the  following 
equations  are  solved: 

7 . 9 Input 

Input  parameters  are  read  in  the  following  sequence. 

Card  1 FY  - Yield  stress  of  re-bar,  fy  (p.s.i.) 

FCP  - Concrete  compression  Strenght,  fc'  (p.s.i,.) 
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C - Concrete  working  stress  factor  (0.45) 

EN  - Modular  Ratio  of  Steel  to  Concrete,  n 

B - Breadth  of  Beam  (ins.) 

T - Total  Depth  of  Beam  (ins.) 

D - Depth  to  Steel  (ins.) 

G - Ratio  of  distance  between  compression-tension 
rebar  to  total  depth  of  beam. 


Card  2*  AS 
ASP 


Area  of  tensile  re-bar  (sq.in.) 

Area  of  compressive  re-bar  (sq.in.) 


Card  2 represents  a type.  There  is  no  limit  to  the  number  of 
of  steel  area  cards  for  any  given  column. 


7 . 4 Output 

Output  includes  values  for  Po/AgFc',  Nb/Agfc',  Mb/Agf'ct, 
Mo/Agf'ct,  Po,  Pa,  Nb,  Mb,  and  Mo.  This  data  can  be  used 
to  plot  the  type  of  load  envelope  shown  on  the  output 
listing . 
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SUMMARY  SHEET  FOR  PROGRAM  NO 


1A1 


PROGRAM  NAME: 


Concrete  Beam  Axially  Loaded 


A.  TYPE  OF  MATERIAL 


X 

1. 

Concrete 

— 

2. 

Steel 

B. 

TYPE  OF  STRUCTURE 

X 

1. 

Beams  and  Girders 

2. 

Columns 

3. 

Composite  Beams 

4. 

Foundations 

5. 

Frames  and  Tunnels 

6. 

Prestress  Construction 

7. 

Shells 

— 

8. 

Slabs 

C. 

REFERENCE  CODES 

X 

1. 

A.C.I. 

2. 

A. I . S . C . 

— 

3. 

A.A.S.H.O. 

D. 

TYPE  OF  ANALYSIS 

X 

1. 

Elastic  Analysis 

2. 

Plastic  Analysis 

3. 

Working  Strength  Design 

- 

4. 

Ultimate  Strength  Design 

E.  REMARKS 


Chooses  re-bar  for  axially-loaded  concrete  beam 


i 

■ 

v 

H 

a 

■ 

■ 

a 

a 

a 

i 

a 

a 

i 

i 

i 

n 

n 


SUMMARY  SHEET  FOR  PROGRAM  NO 


1A2 


PROGRAM  NAME: 

Composite  Beam  Section  Properties 


A. 


x 


B. 


C. 


D. 


TYPE  OF  MATERIAL 

1.  Concrete 

2.  Steel 

TYPE  OF  STRUCTURE 

1.  Beams  and  Girders 

2.  Columns 

3.  Composite  Beams 

4.  Foundations 

5.  Frames  and  Tunnels 

6.  Prestress  Construction 

7.  Shells 

8.  Slabs 

REFERENCE  CODES 

1.  A.C.I. 

2.  A.I.S.C. 

3.  A.A.S.H.O. 

TYPE  OF  ANALYSIS 


1.  Elastic  Analysis 

2.  Plastic  Analysis 

3.  Working  Strength  Design 

4.  Ultimate  Strength  Design 


E.  REMARKS 


Checks  cross-sectional  characteristics  and  optimizes 
selection  of  steel  beam. 


SUMMARY  SHEET  FOR  PROGRAM  NO 


1A3 


PROGRAM  NAME: 

Concrete  Beam  Review 


A.  TYPE  OF  MATERIAL 

1.  Concrete 

2.  Steel 

B.  TYPE  OF  STRUCTURE 

1.  Beams  and  Girders 

2.  Columns 

3.  Composite  Beams 

4.  Foundations 

5.  Frames  and  Tunnels 

6.  Prestress  Construction 

7.  Shells 

8.  Slabs 


C.  REFERENCE  CODES 

1.  A.C.I. 

2.  A.I.S.C. 

3 . A. A. S .H. 0 . 

D.  TYPE  OF  ANALYSIS 


1.  Elastic  Analysis 

2.  Plastic  Analysis 

3.  Working  Strength  Design 

4.  Ultimate  Strength  Design 


E.  REMARKS 

Analyzes  simple  concrete  beam  - a trivial 
problem  unless  a large  number  of  beams  in- 
volved . 


X 


SUMMARY  SHEET  FOR  PROGRAM  NO.  1B1 


PROGRAM  NAME: 

Biaxial  Bending  of  Rectangular  Columns 


A.  TYPE  OF  MATERIAL 


1.  Concrete 

2.  Steel 


B.  TYPE  OF  STRUCTURE 

1.  Beams  and  Girders 

2.  Columns 

3.  Composite  Beams 
A.  Foundations 

5.  Frames  and  Tunnels 

6.  Prestress  Construction 

7.  Shells 

8.  Slabs 


C.  REFERENCE  CODES 

1.  A.C.I. 

2.  A.I.S.C. 

3.  A.A.S.H.O. 


D.  TYPE  OF  ANALYSIS 


x 


1.  Elastic  Analysis 

2.  Plastic  Analysis 

3.  Working  Strength  Design 

A.  Ultimate  Strength  Design 


E.  REMARKS 

Computes  Cross-Sectional  capacity,  i.e.,  the 
"Biaxial  Interaction  Envelope"  of  a short 
column  can  be  easily  generated. 
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X 


SUMMARY  SHEET  FOR  PROGRAM  NO.  1B2 


PROGRAM  NAME: 

Biaxial  Bending  of  Irregular  Columns. 


A. 


B. 


C. 


D. 


TYPE  OF  MATERIAL 

1.  Concrete 

2.  Steel 

TYPE  OF  STRUCTURE 

1.  Beams  and  Girders 

2.  Columns 

3.  Composite  Beams 

4.  Foundations 

5.  Frames  and  Tunnels 

6.  Prestress  Construction 

7.  Shells 

8.  Slabs 

REFERENCE  CODES 

1.  A.C.I. 

2.  A.I.S.C. 

3.  A.A.S.H.O. 

TYPE  OF  ANALYSIS 


1.  Elastic  Analysis 

2.  Plastic  Analysis 

3.  Working  Strength  Design 

4.  Ultimate  Strength  Design 


E.  REMARKS 

Similar  to  Program  l.B.l,  but  can  also  handle 
irregular  shapes. 
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SUMMARY  SHEET  FOR  PROGRAM  NO.  1B3 


PROGRAM  NAME : 

Tied  Concrete  Columns,  Planar  Bending 


A.  TYPE  OF  MATERIAL 


1.  Concrete 

2.  Steel 


B.  TYPE  OF  STRUCTURE 

1.  Beams  and  Girders 

2.  Columns 

3.  Composite  Beams 

4.  Foundations 

5.  Frames  and  Tunnels 

6.  Prestress  Construction 

7.  Shells 

8.  Slabs 

C.  REFERENCE  CODES 

1.  A.C.I. 

2.  A.I.S.C. 

3.  A.A.S.H.O. 

D.  TYPE  OF  ANALYSIS 


1.  Elastic  Analysis 

2.  Plastic  Analysis 

3.  Working  Strength  Design 

4.  Ultimate  Strength  Design 


E.  REMARKS 

Develops  the  allowable  "Interaction  Envelope". 
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USCOMM-N  BS-DC 


SAMPLE  INPUT  FORMS 


FORTRAN  Coding  Form 


O M 

u Z 
l±  ^ 

- 

CARDfl 

CARDJ2 

C A R D //  3 

C A R D # 1 

C A R D # 2 

C A R D # 3 

8 

•2 

O 

s 

inches) 

T3 

58 

•c 

o 

cc 

CN 

<> 

CO 

58  59  60 

- 

<U 

u 

55  56 

a 

£ 

•H 

£ 

"d 

• 

R 

CN 

s 

o 

CN 

” 

50  51 

i ■ 

% 

$ 

Sr 

5 

- 

CO 

J3 

s 

-O 

c 

•H 

w 

5 

22 

• 

4_» 

eD 

5 

u5 

CN 

W) 

£ 

< 

t— 

co 

Z 

O 

rH 

c 

!f 

§ 

a) 

n 

< 

Q£ 

o 

rH 

a 

0 

LL. 

37  38 

o 

37  38 

c 

32  33  34  35  36 

•H 

CD 

32  33  34  35  36 

<r 

H 

< 

jE 

a 

Tl 

C 

•H 

z 

< 

•U 

30  31 

CN 

t-J 

30  31 

Ph 

« 

X 

w 

4-f 

a 

28  29 

a) 

a 

£ 

n 

ft 

25  26 

o 
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9 
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U 

5 

o 

hJ 

s 

rH 

o 

5 

ft 

<3 
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2 
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§ 
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2 

IS 
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= 

2 

o 

Pi 

CN 

rH 

a 
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o 

p^ 

0) 

i 

■ 

O' 

rH 
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O' 

» 
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23 

co 

CO 

a 

tJ 

O 

Vx 
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•o 

p^ 

H 

o 

S3 

• 

fC 

-c 

4H 

v_> 

2 <k 

c 

o 
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- 

- 

C/3 

o 
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■ 

o 

o 

C/3 

'WVNOD 

- 

m 

rH 

-i 

p 
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’A  stondord  card  form,  IBM  electro  888157,  is  ovoiloble  for  punchinq  statements  from  this  form 


FORTRAN  Coding  Form 


Input  Form  No 


1A3  - Concrete  Beam  Review 


A itondord  cord  fo fm,  IBM  electro  888157, 


a 

i 

a 

a 

a 

a 

a 

a 

a 

i 

a 

i 

i 

i 

i 

i 

i 

i 


1B1  - BIAXIAL  BENDING  OF  RECTANGULAR  COLUMN 


\ 


<1- 

LO 


o 

2 

& 

u 

o 


iloblc  for  punchinq  statement}  from  this  form 


1B2  - Biaxial  Bending  of  Irregular  Columns 

Earle  F.  Carpenter DATtFebruary  3,  1969 


Input  Form  No 


I 

I 

I 

I 


B 


2 

m 


“RT 

< | 

<3 

►4 


4 — to. 


I 11 

H 


- uO 

< 


vO 


Input  Form  No. 


LISTING  AND  SAMPLE  OUTPUT  FOR  l.A.l 


"Concrete  Beam  Axially  Loaded" 


//  JOB  1 
//  h UK 

♦ IulS  (LmKI.)»  H^tPhlN  rtH  .DISK  ) 

♦ LiST  mLL 

C t»  • S • u . Oh  cOiniLKEIL  BEAM  ftiTH  AaImL  LUAO 

C PC  — dt)  DmY  CJNCRtTt  blHp.Nblh  (PS1  ) 

C p b-  mLI_U«mL>Lc  bTptL  SfKp'bb  (PS  A) 

C \J  - briLH^  l-OKCt_  (kIPS) 

C P N-  h A A A i_  POkCE(nIPS) 

C i‘i—  MJMtN  i In  — PT  ) 

C Ll  — dLaM  Ut-PfH(lN) 

C O—  ritAM  vvi.D  I H ( li\i ) 

C u-  OtPTH  lu  bit  Ei_  ( 1 N ) 

C UH=  Ut.PTh  10  COMP.  SlKHUlO 

A T KKl'iAL  C £.  f /.  Y 
VklAl  lvl 

ulMt  nSIOim  wOB(16)»  Z ( 2 u ) 

COMMON  Ct ; >,  t CP  C » Ct  U t Xl_  f aR  » ILK  * CK  » KFC  * B * V » AMP 
L-mIA  tS/t^Lb/ 

1 Kc.Af)lc;»HJ.)<JUu 

h t A I ) ( 2 » *+  2 ) PC»FS»rtC 
h t A I j (<?r  JiM)  V » M t p N f L)  1 * M » U t U P 
I T t l .'S » 4 / ) JoB 

wh  1 T t (3i4U)  PC»pS»V»P' fM  t M t u T • H * I ) • OH 
A L — 1 1 • 

KP  C — bwK  T u C ) 

A v M A A - 1 . / b * K P C 
LC-wo**1  .b*J*5«*RFC 
UT=U I / 1? . 
b=H/ i.2 . 

U — I )/  1 2 • 

UP=DP/1?. 

HM- Allb  ( M ) 

AmP  — mM 

t bK-t  b/  1 ui)C  « 

PcK=Pc/ 1 uUU • 

AP  C A = . 4b*P  C 
U=l(l  . *tS/tC+  . b 
Ml  j — P uO  AT  (u)/  1 U • 

AK=FLOATiiNT(l»/tl.+PS/AN/AFCA)*i0U0.+.b))/l00U« 

A j — P LOATUNT  ( ( 1 .-AK/O.  ) *AUUO  . + .5  ) )/10UG. 

Mjl  ) = M J*0 
C l 1 )-AK*u 
Uv=V/(H*u*»l44) 
uu  id  J- i t 19 
JH— J+ i 

IP  ( F N ) iU»2» 1U 

2 CONI  ANUP 

AS— P lOaT i ANT l AM/ (FSK*Aof)) +100.  + .S) )/lUU. 

C m — A n * A S / Pi  / 7 2 . 

Lb-  ( Hli- 1 . )*AC/b//2. 

LPH-U  + Cb 
Lht:-LM*u-LH*uP 
AtWuuI  (Ctti»CPC  ) 
i_  ( JR  ) 

Aol)=J-X/o  . 

APC=iuUO  . * AM/  ( 72  . Ju+  l AN- A . ) /a* AC*  ( X-UH  ) * ( D-L)P  ) ) 

lp  ( MpL-MhLA ) 4r4» J 

J AC=AC+PLOAl  ( ANT  ( 7200*  ( aFC-AFCA ) *b*X/FS*X*AN/  ( ( AN-1 . ) * ( X-DP)  » .51T  / 

1 1 u o . 

A LONT inUP 

ip  ( J - 1 ) h»b»b 


l.A.l.'--  1 


P 1 F ( ML  ) * t)  * bZ 

it)  CONTINUE 

If  ( Aob  ( A-/:  ( J ) ) 0U2*1 1 ) /*7»b2 

7 CuNT iNUh 

AVHA"»~hI/o  ( m b ) 

IF  ( MtfHAb-MVMAX ) 9*9*m 
b A V H A i>  = A V N A X 

9 CONTINUE 

OU  1 w b4 

lU  PM  = Aivi-h  N*  14  • *U  I -u  ) /b  • 

AmF  — F Ni 

b — AM/P  N + u~uT  / 2.  • 

UO  bl  1 = 1 » 19 

IF  ( i-i ) il # 11 *22 

11  CONTINUE 
1F= 1 +1 

IF  ( t- 1 J ) i s * 1 4 * 1 b 

12  it  ( r_  ) W*14*lb 

lb  1|-  (r_  — hJu)  ln*14*l4 

1 4 continue 

Ci\  = l<ib»*i-N/Fb-*AN/H*E/f)**c/b« 

Ai_=.  1 

X i v — 1 b . 

Call  TFOlT  ( A»ZYf  .UOb»<r'D> 
ll-  ( iLK-x  ) 2 l * b7  * 3b 

lb  ApN— — FN 

AbZ=c/  ( 0-UP  ) * AF  i\l/F  bK 
Mb 1 = AF  N/F  bK-Ab2 
A V/  ti  A b = A V O l Ab  i ) 

IF  ( HVrtAb-AVMAX ) 17* 17* to 

ib  A\/BAb=M\/NAX 

17  OONT iNUh 

whlTo  lb  *44)  Abl*Ab2*A\yRAb*UV 
OO  1 o 1 
lb  Ao=H*u  I 

A \/C  = A \J  wA  A *bQK  I l 1 . +P  N/ bb . / AO ) 

PCA= IP  N + b . *AM/UT ) / ( AO* . 14h ) 

IF  (fCa-aFCA)  20*20*19 

19  tv  K I T c.  ( b * 4b) 

20  rtblTt.  lb*4b)  FCA»AVC*UV/»mi-CA 
CO  10  1 

21  AF  C— F b/ AN/ A 1 

22  IF  ( a P C — a F CA)24»24»2b  1 

Zb  AC=AC+PLoa1 ( 1NT ( 72  UO* ( aFC-AFCA ) *R*Z ( I )/Fb*Z ( I ) * AN/ ( ( AN-1 . ) * ( Z < I ) “0  1 

IF)  ) + .b)  ) /iuU.  1 

2 4 C0NI1NUE  1 

AS= ( F N* ( L-A JU )/FbK-AC*lAN-l. ) /AN* ( Z ( I ) -UF ) * ( Z ( 1 )/3*-UP)/(U“Z( I ) ) )/  1 

lAul)  1 

Ab=Fi_OAT  l lNT  ( 1 U U • * Ab+  • b ) )/l()().  1 

IF  lab-.lil  ) lb*lb*2b  1 

Zb  CoNT 1NUE  1 

Cp  H = b . * ( t_-U  ) 1 

CA=AN*AS*t/b/Z4 . 1 

CH=  l AN-1  . ) *AC*  (E-U-FDF  ) /R/24.  1 

CFC=Ca+Co  1 

CF  D=-C  A*u-Cb*L)P  1 

XL=  • U 1 *f)  1 

XH=.4*U  1 

call  tpoly  (x*zz* .uoh*20)  1 

Z(lF)=X  1 

IF  liLH-i)  Zb*b7*5b  1 

2b  C|j=72.*R*X  1 


l.A.l 


2 


0 

I 

I 

I 

I 

I 

I 


1 

CF  = ( aim-1  . ) * ( A “UP  ) /X 

1 

1 

C(-  — — Mi  l*  ( u — X ) /A 

1 

AFC  =8  I ■;*  1 OIJU  . / l CD+CE*AC  + CF  +AS  ) 

1 

IF  (1-19J  2.1  * 33  » 2 7 

1 

|27 

CoNT  i NUE 

1 

1 

A^OriJ-A/o . 

1 

IF  ( AbS  ( A-Z.  ( i ) ) 002*1) ) 2b*2H*3  1 

1 

,28 

CoNT i NUE 

1 

1 

AV/BA-j^AVo  l AS  ) 

1 

IF  ( AVbAS-AVMAA  ) 3U»3(l»29 

1 

29 

A\/BAb  — AVi'iAX 

1 

1 3U 

CuNT 1 NUE 

1 

1 

OO  TO  34 

1 

31 

LoN 1 iNUE 

1 

»32 

CoNT i NUE 

1 

133 

v.  R I T c.  (3*39)  <i(2u) 

1 

*34 

FsC= ( AN-i . ) *aF  L* ( X-UP ) / X 

1 

IF  ( a l ) 3b*3b*3b 

1 

1 33 

F SC  = u . 

1 

| 3b 

LONT iNUfc 

1 

aFS  = mi\i*AfC* (u-X ) /X 

1 

Xz 1 2 . * A 

1 

1 

wRiTr.  13*49)  X * AVHmS  * UU  . mF  LA  * AFC  * AS  * AFS  » AC  * FSC 

1 

I 

bo  To  1 

1 

37 

w R 1 T t 13*40) 

1 

I 

OO  To  1 

1 

| 38 

WR  I Tt_  (3*43) 

1 

bU  TO  1 

1 

,c 

1 

C 

1 

1 39 

F oRMhT  ( nh 1 0 • 0 ) 

1 

40 

FoRFimI  (olhOTriERE  IS  No  KOUT  IN  THIS  RANGE) 

1 

1 41 

F oRMmT  ( ibAb ) 

1 

42 

FORMAT  (bF 10.0) 

1 

43 

F (jRMm  T ( aimOfUnC  T IoN  Uoe^  NOT  converge  In  THIS  RANGE) 

1 

44 

FORMAT  (bUHOHEAM  IS  ENTlKt-LY  IN  TENSION.  THE  REINFORCEMENT 

REQUIR 

1 

ltl)  IbF7.^*4H  ANDF  7 » 2 * 3bH  SOUARE  INLHES.  ALLOWABLE  SHEAR  ISF6.0»11 

1 

2h  LbS/SQ  1N./20H  THE  ShEaK  STRESS  ISF6.0»11H  LbS/SQ  IN.) 

1 

4b 

FoRMaT  ( /MiOliomM  IS  EUTiRc-LY  IN  COMPRlSSION  AND  COMPRESSIVE 

REINFO 

1 

lRCF.Mt.NT  IS  REQUIRED) 

1 

4b 

FORMmT  (b3Fi0bLAM  IS  E N 1 I K t. L Y IN  COMPRtSSiON  AND  THE  MAXIMUM 

COMPRE 

1 

47 

4R 


49 


ISSlOiM  1SF  7 • 0 * 31H  LbS/Su  aim  • ALLOWABLE  SHEAR  ISFb.OrllH  LbS/SQ  IN. 
2/2 OH  THF  SHEAR  STRESS  iSRb.0*4BH  LbS/SQ  IN.  THE  ALLOWABLE  STRESS 
3 i N CONCRETE  iSF  7 . 0 » 10H  LbS/SQ  IN) 

FORMAT  ( 1H11UA  * IbAb) 

FoRMmT  (bbhOCONC  STRnGTH  STEEL  STRESS  TOTAL  SHEAR  AXIAL  FORCESX 
147HMUMEN1  TOTAL  UERTm  wiDTH  DEPTH  DEPTH/5X  ► 4HF ( C ) 1 OX  » 4H 

2f  (S)  llX*  inVlLXlHlMl^XlHivil  1A1HI)9X1HB9X1HD9X2HDP/12H  LbS/  SO  IN4X1UH 
3LbS/  SO  1N7X4HK  lF'S9X4H*\  IPS8X8HK IP  FT7X4HINCH7X2HIN8X2HIN8X2HIN/F10 
4.n»Fl4.n*F14.2»Fl3.2»Fl4.2»4FlU.2) 

FORMAT  <22H0LtNGlH  IN  l0mPRESS10NF7.2*3H  IN//19H  ALLOWABLE  SHEAR  I 
lSfc  7 . u » 2Sfi  LbS/SO  In  UNIT  SHEAR  ISF'6.0*1UH  LBS/SO  IN//28H  ALLOW  ST 
2rfSS  In  cunCRlTE  ISF7. u»33h  LbS/SQ  IN  STRESS  IN  CONCRETE  ISF7.0»1 


3Uh  LbS/Su  1N//19H  AREA  TlnSILE  RE INFF 7 . 2 # 1 5H  SQ  IN 
4h  LHS/SQ  1N//19H  AREA  lOMPRSV  RE 1NFF7 . 2 » 15H  SQ  IN 
S LHS/Sw  in) 

end 

//  DUP 

♦ S I ORE  WS  OA  MImI 

//  FOR 
♦LiST  ALL 

SUBROUTINE  TPoLY  ( X */7*EFb* ITEnD) 


STRESSFfl .0*10 
STRESSF8. 0 » 10h 


l.A.l 


3 


o-  rv 


d, MM  JIM  On.CFt  »CF().XL.  xR*  iLH » C* . KFC t b » V 

iF  KZJ 

X-XL 

F L -71  ( A ) 

It-  (FL)  A *23»  1 
1 X = XR 

VH-/L ( X ) 
it-  ( F K ) 

It-  (hL  + Fh  ) H > .i  » 3 
It  R = i 

A — • b + ( Xl.  + X ) 

Htl URN 
4 iT  = i I fc.NI)-*  I 

UO  22  N=  A » IT 

UO  12  KZi.iTt.NU 
A— • b*  ( XL+XK ) 

Fz7Z  ( a ) 
it-  ( t ) S . 2 o t b 
b it-  (f*FR)  d.7. 7 

b UX-Xl 

XL  — Xk 
XH-DX 
Ux=FL 
fl=Fk 
F K = 0 X 

7 it-  ( AhS  ( F ) -Abb  IFk  ) ) 

rt  IF  ( i\i—  1 T ) lb  » 9 * 9 

9 xu  = X 
F K— F 

L'X-Ailb  l Xk-aL  ) 

A F>  S X K - A B .-a  ( A F<  ) 

it-  (AtiSXK-i.)  il.li»in 

10  UX  = I)  A/ABbAK 

11  it-  (ua-Ef's)  1 <3 » lb » 12 

Id  CoNTiNUF 

it.B  = ^ 

13  Xz  XL 

AF  ( ABS  ( i-L  i -A6S (fR  ) > ?3»23»14 

14  XzXFi 
klTukim 

lb  UfLzf-FL 

OF  BzF  K— F 

Ux=(x-xL)*FL*U.+F»(lJFh-uFL)/(UFH*(FR- 

XM=X 
F M— F 
A Z X L — I ) X 
U X — Abb (Ox  ) 

AttSX-AhS  l A ) 

A.-  (HribX-i.)  1 7 » 1 7 » 1 o 

lb  UX=Ox/AHbx 

17  it  (uA-EHb)  23 » 23 » 18 

lb  F zZZ IX) 

iF  ( F ) 19»23» 19 

19  iF  ( F * F L ) ^U»2U»2l 

2 U Xw— X 

Fr-F 

bo  To  2? 

21  XL  — X 
F L=F 
XF(  — XivI 
F R=FM 

22  CONTINUE 

l.A.l. 


. AMF 


FL) ) )/DFL 


23 


RfcTUKN 
END 

//  DUP 

♦STORE  WS  UA  TPOLY 

//  FOR  ' “ ' - ‘ " 

♦LIST  ALL 

Function  zz  (x) 

common  B»C»D»XLfXR» IER » CK » RFC  * S * V » AMF 
ZZ=(  (X+FT)  *X+C ) ♦ X+D 
Kb TUKN 

End  " * 

//  DUP 

♦ Si  ORE  WS  UA  ZZ 

//  FOR 

♦ LjiST  All 

function  zy  ( x > 

CoMMun  CFh»CFC»CFD»XL»  XR  * IER  » C #FFC » B » V » AMF 

ZY=( (X+2. ) +X+ ( 1 • -3 • /C ) )*x-2./C 

return 

END 

//  DUP 

♦SIORE  wS  UA  zY 

//  FOR  “ 

♦LiST  ALL 

function  avb  ix) 

COMMON  Cbh»CFC»CFD*XL*XR» 1ER > CK , RFC > B » V » AMF 
AvH=RFC+iO./l ,44+X/B+VZ AMF 

return 

end 

//  DUP  

♦Si  ORE  WS  UA  AVb 

//  FOR 

FUNCTION  ROOT  (B*C) 

ROOT  — ( SQkI  ( B**2-4 •♦C)“rt)/2» 

return  '*  ' ‘ 

End 

//  DUP 

♦SIORE  WS  UA  ROOT 

//  XEGl  MlAl 


I.A.l.  - 5 
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LISTING  AND  SAMPLE  OUTPUT  FOR  1.A.2 
"Composite  Beam  Section  Properties" 


//  JOB  1 
//  FOK 

*iocs(CAROr inter* disk ) 

C PROGRAM  I-  ok  FINDING  SECTION  PRUPkRTlES  OF  COMPOSITE  SECTIONS 

C MEANING  of  ou  T PU  I TERMS 

c 

C N-MOuULAK  HA  I 10 

C w/F  — wEiGhT  OF  STEEL  FEk  FOOT  OF  BEAM 

C 1 - MOMENT  OF  iNEkllA 

C STF  - SEcTlON  MODULUS  TO  t OP  FLANGE 

C ShF  - SECTION  MODULUS  10  bOTTOM  FLANGE 

C SC  - SEC  I 1 ON  MODULUS  To  1 uP  OF  CONCKETE 

C M - MOMENT  OF  IRaNSFOKmED  CONCKETE  SECTION  ABOUT  NEUTRAL  AXIS 

C 

C 

C Ml  - ARE  a OF"  BOTTOM  FLa(\|uc 

C A 2 - ARE A OF  rtEB 

C A3  - AREA  oF  TOP  FLANGE 

c A4  - mkEm  of  Transformed  concrete  slab 

C AlYS  - AY  OF  B0T10M  FLmNGE  FOR  NON  COMPOSITE  SECTION 

C ApYS  - AY  UF  WEB  FOR  NON  LOMP0SITE  SECTION 

C A3 Y S - AY  OF  ToP  FLANGe  FOR  NON  COMPOSITE  SECTION 

C A4 Y T - mY  OF  CONCRETE  Slab  FOR  COMPOSITE  SECTION 

C as Y T - AY  oF  STEeL  FOR  COMPOSITE  SECTION 

C ATS  - AREA  OF  STEEL 

c mytsc  - ay  of  composite  section 

C 01  — uEP  I h OF  bOTTOM  FlAnGE 

C up  - UEP  In  OF  vii  Eb 

C u3  - UEP l h Of  1 Op  FLangE 

C U4  - UEP  I H Of  SLaR 

C Ull  Name  of  AkRmY  For  generating  U1 

c u i a - Name  of  array  fur  generating  04 

C Ul2  - NAME  of  array  for  reading  U2 

C iu  - IF  u ubc-  II  ROUTINE  if  1 USE  W1  KOUTINt 

C L - loonier  For  printing  of  title 

C NIDI  - NUMBER  of  DEPTHS  OF  BOTTOM  FLANGE  BEING  READ 

C N1D4  - NUMBER  of  DEPTHS  of  SLAB  BEING  READ 

C IN  1 T 1 - Number  uF  T1  BEING  READ 

C N 1 W 1 - NUMBER  OF  WIDTHS  OF  BOTTOM  FLANGE  BEING  READ 

c n i wt  - dummy  varible  fur  Setting  up  do  loop 

C NOFwp  - NUMBER  OF  depths  and  WIDTHS  OF  WEB  BEING  READ 

C ShF  - SECTION  MODULUS  TO  BOTTOM  FLANGE 

C SC  - SEC  I ION  MODULUS  TO  CONCRETE 

C ST F - SEC  I ION  MODULUS  TO  T OP  FLANGt 

c sioi  - size  of  increments  of  depth  of  bottom  flange 

c si 04  - sizt  of  Increments  of  depth  of  slab 

c siTi  — si^E  of  Increments  of  ti 

C SiWl  - Size  of  INCREMENTS  OF  WIDTH  OF  BOTTOM  FLANGE 

C ll  - NUMbeR  DEPTH  OF  HOT  I OM  FLANGE  IS  MULTIPLIED  BY  TO  GET  WIDTH 

C T 4 - NUMbeR  ULPTH  OF  CONCRETE  IS  MULTIPLIED  BY  TO  GET  WIDTH  W4 

C 111  - NAME  OF  ARRAY  FOR  GENERATING  Tl 

c w - *eighi  per  foot  of  si  eel 

C W 1 — wlDlH  OF  bOTTOM  FLANGE 

C W2  - wlDlH  OF  wEh 

C W3  - WIDTH  OF  TOP  FLANGF. 

C W 4 — WIDTH  OF  SLAB 

C Ml  - NAME  Oh  ARRAY  FOR  GENERATING  Wl 

C wl2  - NAME  OF  ARRAY  FOk  READING  w2 

C XI  - 1 OF  STEEL  SECTION 

C XIC  - I ok  CONCRETE  FOk  COMPOSITE  SECTION 

C X I HF  - I OF  hOlTuM  FLANGE  FOR  NON  COMPOSITE  SECTION 

C X I TF  - I OF  TOP  FLANGE  FOR  NON  COMPOSITE  SECTION 


1 A 2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1 A2 
1 A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1 A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1 A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1 A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 
1A2 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

B 

I 

I 

I 

I 

I 

B 


r c-. 


C XlS  - 1 oh  STEEL  FOR  ComPuSITE  SFCTlON  1A2 

0 X I T - I oh  COMPOSITE  bh.C  I i ON  1A2 

C X1W  - I Oh  wLb  hOK  NON  COMPOSITE  bECTIOlM  1A2 

C Xm  - MOMENT  Oh  TRANSFORMED  CONCRETE  bECTION  ABOUT  NEUTRAL  AXIS  1A2 

C Xn  - MODULAR  RaTiO  ~IA2' 

C Yb  - DlSUNCE  TO  NEUTRaL  AXIS  h ROM  TOP  FLANGE  FOR  NON  COMPOSITE  GE1A2 

C Y ST  - DISTANCE  To  NEUTRAL  AXIS  FROM  CONCRETE  FOR  COMPOSITE  SECTI0N1A2 

U 1 MENS i Oim  Ol2(30U>*  wl2(3UU)»  014(300)*  UIK3UU)*  TI1(300>*  A ( 8 ) 1A2 

U I MENS I On  ftlll^OU)  1A2 

COMMON  W4  * ft2  » XN  * w3  » 03 * i)4  * U2  » A » L 1A2 

1 READ  ( 2 * 2l ) a 1A2 

READ  (2*«=:2)  XN » NOFW2  » I D 1A2 

HEAD  (2»c:3)  w3»D3  1 A2 

READ  (2*24)  D4»NlD4*bio4rT4  1A2 

READ  (2*24)  ul»NlDl»bIljl  1A2 

IF  (lu)  2 u * 2 * 4 1A2 

2 READ  (2*24)  T1*N1T1»SIT1  ~ 1A2 

Tll(l)=Ti  1A2 

Uu  3 . 1 A2 

0 T 1 1 ( d+1 ) -T 1 1 ( J ) +S I T 1 1A2 

OO  TO  in  1A2 

4 RfcAD  (2*2 4)  wl»NiWl»bIwl  1A2 

W 1 1 ( 1 ) =Wl  IA2 

Uo  b I— 1 »NIWI  1A2 

b wl  1 ( 1 + 1 )=.,il  ( I )+Slwl  1A2 

b Kh AD  ( 2 * 2h ) Ui2(N) »DI2(n) »N=1»N0FW2)  1A2 

L=U  1A2 

014(1 )=D4  1A2 

DO  7 M— 1 *NlD4  1 A2 

7 014 (M+i ) -D14 (M) +blD4  1A2 

Oil ( 1 )=Di  " 1A2 

OO  8 K = 1 * N I U 1 1A2 

8 Oil  (N+l)=Dil  (K)+bIOl  1A2 

A3=Wb*U3  1A2 

A3YS-A3*  (03/2 . ) - - - 

DO  1'-)  M=1*NID4  1A2 

04=014 (M)  ” 1A2 

ih  T 4 = u*  PROGRAM  SUPRLiLb  T 4 = 16*D4+W3  PER  AISC  SPECS  1A2 

IF  T 4 =:  XX*  PROGRAM  USeS  XX  TO  FIND  W4  (W4  = T4*04)  1A2 

ih  (14)  4*9*10  1A2 

9 w4=D4*1G.+W3  1A2 

bo  Tu  11  1A2 

1U  W4=04*T4  1A2 

11  CONTINUE  1A2 

A4=W4*D4/ XN  1A2 

A4YT=A4* (D4/2. ) 1A2 

00  1 9 N=l»N0hw2  ""  “ ~ TAZ 

02=0 12 ( N ) 1A2 

W2=WI2(N)  1A2 

A2=02*w2  1A2 

A2Yb=A2*(D3+(D2/2. ) ) 1A2 

Call  title  1A2 

DO  14  K = i * N I u 1 ' ~ TAZ 

0 1 =0  i 1 ( K ) 1A2 

IF  (ID)  2(1*12*13  ' 1A2 

12  NIWT=NIT1  1A2 

GO  TO  14  " 1 A2 

13  NIWT=NIW1  1A2 

14  00  1 4 jTrt=l»NlwT  — - - FA 2 

IF  (ID)  19  * lb  * 16  1A2 

lb  T l=Til l J l to  ) 1A2 

tol=Dl*Tl  1A2 


l.A.2.4  - 


2 


■ 


b()  TO  17  1 A if 

1 b to  1 — to  i 1 ( J lid  ) 1 A 2 

17  Al=Dl*wl  1 

A]Yb=Al*  ll)3+D2+Dl/2  . ) 1A2 

AlYSr  = Al  f b+A2Yb+A3YS  1A2 

ATS=a1+A2+a3  1 A? 

YS=A1YST/Mlb  1A2 

XlTF=A3*  ( (03*U3)/12.-M  YS-N3/2.  >*(Yb-U3/2.  ) ) 1A2 

X 1 w = a2* ( l 02*02 ) /i2.+ ( Ys-uo-D2/2. ) * ( YS-D3-D2/2 . ) ) 1A2 

XiRF^Al* ( (ul*Dl)/12.-Mo2+u3+Dl/2.-YS)*(D2+U3+Ul/2.-YS)  ) 1A2 

XI=Xi TF+tolW+XldF  1 A2 

STt-=xI/Yb  1A2 

bRF=xI/ <u3+U2+Ul-Yb)  1 A2 

to  = ATi>*49u./144.  1A2 

toklTt  (3»2t>)  U1 » to  1 * A ] » to  * X i * STF » ShF  1A2 

ASYT=ATS* l YS+04 ) 1A2 

AYTSl=A4Y T+AbYT  1 A2 

YsT=aYTSL/ (ATb+A4)  1A2 

XIC=a4* (u4*D4/12.+ ( YbT -04/2 • ) *( YST-04/2. ) ) 1A2 

XlS=Xl+Alb*( Yb+D4-YSr >*( l b+D4~Y$T ) 1A2 

X I T-X I C+  A i b 1A2 

bTF=xiT/ ( YbT-04)  1A2 

bhF=XlT/ (U4+U3+D2+Ul-YST)  1A2 

bC=X!T/Ybl  1A2 

Xfvi=A4*  ( YbT  -D4/2  • ) 1A2 

toklTt  (3*27)  X 1 T * bT  F * Si-sF  * bC  * XM  1A2 

LrL+l  1A2 

11-  (b-48)  19  * 1 b * ift  1A2 

lb  Call  TiTLt  1A2 

iv  continue  1A2 

20  continue  1A2 

bO  To  1 1A2 

C 1A2 

21  F oRMhT  (rtwlO)  1A2 

22  FORMAT  (FS.2»215)  1A2 

23  FORMAT  (2F10.3)  1A2 

24  FORMAT  (hlU.3»  ilU»2Flf).3J  1A2 

2b  FoRMaT  (2F10.3)  1A2 

2b  FORMAT  (In  *Kb. 3*  lFl(  *F9. 3*  1FI(  *F9. 2*  1FI(  »F9.2>  1H(  »FlO.  1 * 1FKF9.1  »1FKF1A2 

19.1* lh ( ) 1A2 

27  FORMAT  (1h+»70X*F1U.1.1H( *F9.1»1h( »F9.1»1H< »F9.1»lH( *F9.2)  ' 1A2 

LNL)  1A2 


//  OUR 

♦blORE  tob  UA  Ml m2 

//  FOR 

bURROUT  INF  TITLE 
UlMENblON  A ( b ) 

Common  W4  * w2 » xn  » w3  * D3 » 04  * u2 » a » l 


tok  I Tc. 

(3 

» 1 ) 

tok  1 T t 

(3 

* 13) 

A 

toklTt 

(3 

*2) 

toklTt 

(3 

*3) 

toklTE 

(3 

*4) 

to4  » W2 

tokITE 

(3 

* b ) 

Wk  I Tt 

(3 

9 t”>  ) 

XN » W3 

tok  ITt 

(3 

*7) 

L)4  » 02 

toklTE 

(3 

* b ) 

toklTt 

(3 

*3) 

toklTt 

(3 

*12) 

Wk  I Tt 

(3 

* b ) 

Wk  I Tt 

(3 

*9) 

Wk  I Tt 

13 

*b) 

1 
1 


I 

■ 


I 

. 


Iv<  H 1 T t.  ( 3 ► 1 2 ) 

A/klTt  ( 3 » 1 U ) 

\N  l<  I T r_  ( 3 * J 0 ) 

\f<  n I T r_  l.^»ll) 

Iiinllt  (3*10) 
vvkIIh  (3*12) 
wRlTt  ( 3 * ) U ) 

ft  L = ° 

Rt  T UKim 

1 R ORMmT  ( Ihjl  ) 

12  RoRMmT  (i^lh  



2.  ) 

13  RoRMaT  (iAX»lH(»34X*lHl#34X»lH() 

4 RoRMaT  (Hi  » 1 bX  » ] H ( * 1 Sa  * OH  A 1 UTH  — » F 8 • 3 » 3X  * lH  ( » 14X  » 8Hw  IDTm  — Fb*3) 

b RoRMaT  ( ih+  * AbX  * in  l ) 

b RoRMaT  (ax  * 4 UN  = * R b . ? » 3x  * 12H  ( CONCRETE  » 23X  * tiH  ( wEB  * 27X  » 1 3RI  ( 

| 1 TOR  R LAiMOt  * 2X  * F a . 3 * 2h  X»R8»3) 

7 RoRMAT  (in  » lbx*  1H(  » ISx  .biiUEPTH  = * F8 . 3 » RX  » lH  ( * 14X  * 6H0EPTR1  = *R8*3 

1 ) 

b RoRMaT  ( 2 R X » 1 M ( * 4 U X * l H ( ) 

9 RORMaT  ( aa  * lHHrtO I T OM  h L nubE » 7X » 1H ( * 8X » 23HN0N  COMPOSITE  SECTION* 

1 9x  * 1*1  ( * Ida*  1 BHCOmRuS I Tfc.  bfc.CT  I UN  ) 

10  RuRMa I (4A*lH(*9A*lH(*RX»iM(*9x»lH(»lUX»lH(»9X*lH(»9X*lH(*10X»lH(* 

1 9 X * 1 r I ( *9a* 1H( #9X# 1H( ) 

11  RoRMaT  ( 1Ii+*  lX*bH[)ERTRI*SA*bRllftIuTh»bX»4RiAREM»bX»4RIW/FT*8X»irlI»9X*  3RI 

1STF*  /X  # 3riSbR  *8X*lRll*RX*3HbrF*7X3HSbF*7X2RlSC»9X»lHM) 

12  RoRMaT  (12IH+ 

1 . . 

2.  ) 

13  RoRMaT  (1X*8a1u) 
tNO 

//  OUR 

*S » ORE  wS  UA  TIILt. 

//  XEU  M l A 2 


. - 4 


1.A.2 


p 0 T T Q H r L A M c 


LISTING  AND  SAMPLE  OUTPUT  FOR  1.A.3 


"Concrete  Beam  Review" 
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m 

m 


/ U(j  lj 
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i i/cj  l 


M 


i 

o 

\" 
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I// 


t 

Cm'\U  » 1 iw2H<  i.N  i LK  • :vl  Jf\  ) 

A oxivir'«_i  ^UkCkL  i L Pi.Ai. 

K i_  A lJ  ( b • 2 ) r b f t L p A i 

i i c_ ; * u ( 2 » c. ) h ■ 3 * iJ  t iJ 

I — .1  j/  i LJ  3 ) 

mi\-  v l i w • J i ) ♦•l  ( H + AN  ) * +r_  • u ) ) • b ) ~ ( P*  A 'i) 

> V w — .1  • U *“  V M i\  / 3 • U ) 

Ai  ib—  ( Mb  **  t~  J + hJ^L1)/  U 

A 1*1  C ■—  l F C + ly  • 3 ♦ / v r'\  ^ M b + L Al  j I (J  ) ) / 12000*0 
Alii  ii_  (.y»j) 


H t\  l i k_ 

i«Ki  II. 
» / K X I L 
..(< i I _ 

'•Ja  i - 

n ru  L 


( j»*t) 

l.ifj 


( 


.) 


I ji  i i 
i w ^ ) 

( b » 


i-  3 » i"  C » A r.  » A b r b * L 
r’»hi3/w»  /\,“'ib r aMC 


3) 


A i \ i I _ l ^ it) 

f-  oKi-im  i v i X » jr  12  % l+  ) 

I" \j K i»i A l voi  J o . ii  i 

f-  oNl-l.A  I 1 i A t x I I ) 

h J A ir»  1 v / /\  t c.\A~  b r 1 j A » b r i a X » i Ml  i r 1 0 X » 2h  AS  f i 1 A * 1 n ’ » 1 
i-  u.<i-i  a I i 3a  # iilP  » i i a f 1MX  * i IX  t lr  lb  # i UX  » 2i1Nb  » 1UX  r 2 r'MC  ) 
r uNi»i.-»  I ( 1M1  ) 

Li 


iJUP 

I JA_. 

A 3 I 

oUb 


Urt  I'-ii  Ab 


X r iHu ) 


id 

V 


■ 

m 

■ 

in 


3 

O 


to 


o 

o 


3 

AJ 

r- 


x • o • 

Mr' 

.-t  *H 

to 


o 

o 

o 

O' 


X 

Is- 

X 

X 


• yl  • 

0 Z 3 

H 

tO 


I 

o 

2 • "A 

13 

-• 


h- 

c 

X 


o 

X • < 
X 3 
X 
to 


cr 

to 
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3 

un  ^ x 
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o 


oj 
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LISTING  AND  SAMPLE  OUTPUT  FOR  l.B.l 
"Biaxial  Bending  of  Rectangular  Columns" 


//  jol3  r 

//  MJi\ 

* i uu'3  ( U ARu  » 1 ludPR InTLK  » l)I  jK  ) 


u Kc_Cj  . CONCRETE  euLUhN  toiTH  BIAXIAL  BENDING  181 

Re.  w_  i.IauLA  * MAlLu 

Ji  -iLimSIuim  Auo  Ra  ( 1 U U ) t ACORY  (100  ) » AREA(100)»  TAREA(100)»  BARImO  ( 1U01B1 

l)  181 

1 RE  A j ( 2.  * 4 1 ) t-NGR  r uA  I E lbl 

ki_Au  (2»40T  T * Lj  t AMX  » AM Y t THR  t EN  lbl 


uU  d i.-x»10u  

AUOrtX(I)=O.U 

AuuR  Y ( 1 ) =0 . U 

mk£m ( 1 ) -0 . 0 
l.  ImRc-mCI)— u»u 

i=r~' 

3 Rc.Au  (2>4U)  omRimOUJ  >ACORX(l)  »ACORY(l)  »AREA(1) 

i-l  + i 

i r ( 8ARi  AJ  ( I- 1 ) “1 JU  • ) j»4»4  

4-  NObrtR=I-l 

IM=1  

Jo- 1 

muJmR-I  

vJ  R 1 I c.  ( J t 4 3 ) 

rttU  I'l  (jf7oJ  _ 

urtl I l ( J » 4d ) 

tort!  Te.  (j»72)  ENGrtjr  U;\TE  _ 

vm  i I i_  C u t Ad ) 

Arti  fc ( J t 4 1 ) 

i/m  i I i_  ( o f 4ti  J 

.»«!  Il  (d»A6^  

.ml  Tc  ( J t 4 d ) 
l/Kl  1 1_  ( o * 32  ) 

.WR  l 1 L.  ( O * Ad  ) 

v v R 1 T c.  i j / A 9 ) _ 

n/klTc.  ( J»ou) 

,huIl  (j/biJ  __  _ _ _ 

(3rb3)  T t u * ai-’.a  * XM Y t THR  * EN 

v. R 1 I l.  I J r 4d ) _ __  

34) 

a r<  1 I c_  _ t J > 33  ) _ 

toh  1 1 l.  ( 6 t b7 ) 

bu  u 1 = 1jlR08AR  _ 

o tortile.  1 3 > 56)  BARNO  ( 1 ) » ACOKX  ( I ) » ACORY  ( X ) r AREA  ( I ) 

7 m— T-*u 

t/rti  II  ( 3 • A J ) 

Wrt_lTE l_3»73) __ 

»»RifE  (3»4d) 

»v R I i L l 3 > 72 ) _EN6R  * UA T E 

wrtilL  ( 3 > 4 2 ) 

to' Kilt  (dr  41)  

tortl  II.  (o»42J 

__  vm  I 1 1_  ( u * A b ) 

to  i \ 1 1 1_  ( 3 t 4d  ) 

wKlJu  ( 3 1 b b ) 

” toKlTc.  I 3 t 42 ) 

U-JX- . b*T**d*U 

dOY=  • b*  i *L)**d 

LrtTOX-t  f*»3/j. )*u 

EKror=(r/3.)*D*^3 

EKT X Y - ( T **2/4  » ) *0**^ 

EbUuX=XiwlY *ld  • /THR 
LbUdY=XMX*ld • /T  hR 


181 

lbl 

181 

1B1 

lbl 

lbl 

1B1 

181 

lbl 

lbl 

1B1 

1B1 

lbl 

181 

lbl 

lbl 

lbl 

lbl 

lbl 

lbl 

lbl 

lbl 

lbl 

lbl 

lbl 

1B1 

lbl 

lbl 

lbl 

1B1 

1B1 

lbl 

lbl 

lbl 

lbl 

1B1 

181 

lbl 

lbl 

1B1 

lbl 

1B1 

lbl 

1B1 

lbl 

1B1 

lbl 

lbl 

lbl 

lbl 

lbl 

lBlj 

lbl 


\.b.\  - I 


9 

10 
11 


12 

15 


ASUHP=U/P.-tSUHX 
YSUHP=T/2.-ESUbY 
RATIO=ESUbX/U+LSUHY / r 

bMALl  = (t.K  I AY-YSlJbP*QOY  ) * l LKT X Y-XSUbP*OOX  ) - ( ERTOX- 
1-XSUhP*QoY ) 

MaLLa=SMml1/ ( (OOX-YSUHP*A) *(ERTXY-XSUbP*OOX)-(UOY 
1 YsUHP*QOX ) ) 

NiaLLM  = SMal1/  ( (OiOr-XSUhF  + M)  *(ERTXY-YSUbP*UOY  ) -(UOX 
1 ASUHP*uOY  ) ) 

SlOPE-MAlL A/M ALLb 
AkE  A I :=U  . U 
AkEAC-U . U 
UO  15  1 = 1»ImOhmR 
lAREA(l)— 0 • U 

bTORi=MALLA-ACORY  ( 1 ) *Sl.OPL 
b()  TO  ( 1 U » 9 ) f NCoMP 
IP  (bTORl-ACORX ( i ) ) 1 2 * 1 2 » i 3 

IF  ( STORi-ACOKX  ( 1 ) ) 12  » 12  » 1 1 

I AREA  ( I ) - { 2 • *EN-1 . ) *ARp  Al  1 ) 

ArEAC  = AREaL  + T AREA ( X ) 
bO  To  13 

1 AREA  ( I ) =t  N*AREA  ( I ) 

AkEA  r = ARtAl+TAREA ( 1 ) 

Continue 
wox=o . u 

UOY  = 0 . 0 
LrTOa=u . u 
ErTOY=U.u 

lrtx  r=u . u 

UO  14  X=l,NObAR 


YSUBP*QOX)*(ERTOY 
-XSUbP*A) *(ERTOX- 
“YSUbP* A ) * (ERTOf- 


c case  n follows 

20  A=.5*T1*  l 1 ( T2  ) **2  ) +AkFmL+AREaT 

00X=u0X+MaLLA*T**2* (3.-?. *T/MALLb) /fo. 

OoY  = wOY4|VialLA**2*MALLH*  ( 1 .-T2**3)  /b. 
ErT0X=ER10X+MALLa*T**3*(4.-3.*T/MALLB)/12. 
LRTOY=ERToY+MALLA**3*MALLb* ( 1 . -T2**4 ) /12 . 

EkTXY=ER I X YET  1**2* ( 1 . - T 2 **4-4 . *T2**3*T/MALLB ) /24 . 
GO  TO  24 

C CASE  III  FOLLOWS 

21  A=.5*T1*( 1.-T3**2)+AREaC+aKEAT 

l.B.l.  - 


IB  1 
IB  1 
IB  1 
1B1 
IB  1 
IB  1 
1B1 
IB  1 
1B1 
IB  1 
1B1 
1B1 
IB  1 
1B1 
IB  1 
1B1 
1B1 
1B1 
1B1 
1B1 
IB  1 
IB  1 
1B1 
1B1 
1B1 
1B1 
1B1 
1B1 
1B1 
1B1 


OOXZOOX+ 1 AREA ( 1 ) +ACORY ( I ) 

IB  1 

OoY=wOY+ 1 akEa(1)*acokx(i; 

IB  1 

tRTOX=ER  roX  + TAKEA ( X ) *ACOKY ( I ) **? 

1B1 

ERTOY=ER 1 OY  + 1 AREA ( 1 ) *ALOKX ( I ) **2 

1B1 

LkTXY=ER i A Y + T ARE A ( I ) *AcOR Y ( I )*ACORX ( 1 ) 

1B1 

14 

CONTINUE 

1B1 

T 1 =MaLLA*|V|hLLB 

IB  1 

Tp= ( MALLb-1 )/MaLlB 

IB  1 

T 3= ( MALL«-U ) /MaLlA 

IB  1 

IF  (MAlLm-U)  lbrl5»lb 

1B1 

15 

XF  (MALLu-1)  19  > 19 » 2U 

IB  1 

lb 

IF  (MALLb-T)  21 » 21 r 17 

lbl 

17 

IF  (MALLA*t (MALLB-T) /MaLLu) -U)  22»18»1H 

IB  1 

lb 

IF  ( MALLb* ( ( MALLA-U) /MaLFA ) -T ) 22»23»23 

1B1 

C 

case  i follows 

1B1 

19 

A=.5*Tl+MKtAC+AREAT 

1B1 

OOX=OOX+ lTl*MALLb)/6. 

1B1 

OOY=uOY+ (T1*MAlLa ) /6. 

IB  1 

LRTOX=ER IOX+ IT1*MALLB**2 ) /12  . 

IB  1 

LRTOY=ER  TOY  + (Tl*MALLA**2)/12. 

1B1 

tRTXY=ERIXY+(Tl*U)  /24. 

IB  1 

GO  TO  24 

1B1 

1B1 
IB  1 
1B1 
IB  1 
1B1 
1B1 
1B1 
1B1 
1B1 
1B1 


2 


c 

dd 


0 

2b 


ubX=UOX+T  l*iWAi_Lb*  (l.-T3**3)/t>.  1B1 

oOY-UOY+i'-'lALEb*b**2*  l 3 • -2 • *D/MALLA ) /6»  lBl 

EK ToX=Ek  rOX+Tl*r'iALLU**2*  ( 1 .-T3**4)  /12.  1B1 

LK  ToY  = Lk  I 0Y+MALLb*U**3*  ( 4 . -3 . *U/MALLA ) /12.  1B1 

eRTXY=ERTXY+T1**2*( x.-T3**4-4.*T3**3*D/MALLA)/24.  1B1 

oO  TO  24  1B1 

Case  IV  follows  ' lBl 

a=.B*T1* ( 1 ,-T3**2- I 2**2)  +AREAOAREAT  1B1 

uOX=UOX+  I l'*|v|MLLb*  ( 1 .-T3**3-T2**3-3.*T2*'*2*T/MALLB)/6.  lol 


OoY-oOY+T 1*MALLA* ( 1 . - T3**3- I2**3-3 . *T3**2*D/MALLA ) /6 . 1B1 

LkTOx-c.KT0X  + I 1*MmLed**2*(1  .-T3**4-T2»*4-2.*T2**2«‘(T/MALLB)  *(  (2.*MA1B1 
lLLb+  T ) /MALLb ) ) / Id  • 1B1 

Lino  ySTc-RTO  Y + T 1 A l L A * *2*1T7“T  3**4- T 2 * * 4-2 . *T3**2*  ( D/MALLA ) *TT  2".  ♦MAIBI 
lLLA  + u ) /VimLLA  ) ) / i.2  • lBl 

EKTXY=EK  rxT+  fT**2*  ( i • -T3**4-  f2**4-4  • *T3**3*Td7MALLA) -4  • *T2**3*  ( T/M1B1 


IhLLO  ) ) / 24  . ibl 

0 0 I 24  lBl 

Chjc.  v F ULLirwS  lBl 

A — U*  j + ARt-AC  + HKE A f lbl 

oja=oOX+  » b*u*T**2  1B1 

O0Y-O0 Y+ • b*u**2* F lbl 


lk r ua— ekT  ox 4j*t **o / o » 
t_r\  ToY  —EkT  0Y+U**3*  T/o  • 


IB  1 
lbl 


t-K  I_xY=_EkTX_Y  + 0**2*  F**2/4 . _ lbl 

c4  00  TO  l2b»2o )»  (M  ‘ 1B1 

23  SMalA-MALLA  lbl 

SMAlo=MaLLB  lbl 

R-2 101! 

00  To  6 lBl 

c.  o Jo  — JJ  + i lBl 

Ih  ( Jj-ou ) 27 t 27 > 29  lbl 

27  I bWiL.M= AbS  ( MAlLA-BRIAlA  ) 1B1 

TSMLb=A03  ( MALLB”bMAL.u  ) 1B1 

1 F ( i SlWuA- « UU5  ) 2o»2by  2b 1 81 

do  lF  irSMLB_»UU5)  29fb5» 2b  1B1 

l9  C b T K - F HR  * i Ou  0 • / (A- l oOY/MALLA) - ( QOX/MALLB) ) lbl 

wrITc.  (b»39)  RAlio  1B1 

hkIil  ( j*  42 ) 1B1 

uniTL  (or b2)  ESuux  1B1 

WRITE  ( b > 42 ) 1B1 

wRxTc  Ibrbb)  ESUbY  lbl 

jmiTE  C3f 42) lbl 

OO  fo  ( 131  t 102  ) MNlCOiViP 

ibi  wkl  Te  ( b > o4 ) 1B1 

wRITe  ( b » 42 )  *  1 lbl 

_ o o_  10  ib3 

132  WRITE  (b>o5)  ” ’ 1B1 

W R 1 I E (3 >42) 1B1 

133  wRllt.  (b*45)  JJ  lbl, 

WRITE  ( 3 r 42  ) 1B1 

wRI  1 E ( b * oO  ) MALEh  lBlj 

w k 1 T l.  ( b > 42  ) lbl 

WRITE  l b r ol ) MALLb  lbl 

WRITE  (br  42) lbl 

wKlTt.  ( b t 59 ) " lbl 

WRITE  ( b * 70 ) 1B1 

WRITE  (3f 71)  A t EKTOX r ERTOY  lbl 

WkITE  ( 3 » 42 ) 161 

WRITE  ( 3 1 44 ) CSTR  1B1 

WRITE  ( 3 1 42 ) 1B1 

WRITE  (br 42 ) 1B1 

WRITE  ( b » b6 ) 1B1 


wKITl  (b»b7) 

181 

WKIIE  (b»o8) 

lbl 

U INu—l 

lBl 

00  bo  1=1* NOoAR 

1B1 

oU  10  (ol»3G)»  NCOMP 

1B1 

OU 

IF  (TaRc_A(I))  bo  * 3b  * bl 

1B1 

bj. 

IF  ( AREA ( 1 ) *fcN-f Hrtt A ( IT ) 33*b2*32 

161 

b* 

F S=u»*CSTR* ( 1 . - ( AlOkX ( I ) /MALLA) - ( ACORY ( I ) /MALLB) ) 

161 

WRITE  (o*46)  X»Fb 

161 

oO  TO  34 

161 

Ob 

FPS=2.*tN*CSTR*U.-AC0RXll)/MALLA-(AC0RY(I)/MALLB) ) 

181 

WRITE  ( b » 47)  X»FFo 

lbl 

jH 

LXNe-LXuE+1 

161 

IF  (LINe-25)  3o»ioOb 

161 

OO 

t-  X . Nli_—  1 

161 

tv  Kile.  ( o f 4 b J 

lbl 

;«iu  T i_  l b » 7 b ) 

lbl 

n K X 1 c_  (o»  42) 

lbl 

H K i 1 l ( b r I'd)  t-I  JoK  mJmTl 

161 

.< I\  i II.  l 

lbl 

1 i_  ( b * 41 J 

lbl 

»W\  I I L-  ( b * 4 2 ) 

lbl 

< R 1 I u ( o * 48 ) 

iol 

t«K  1 f t_  ( o r 42 ) 

lbl 

v<  i \ I 1 L ( vj  t b 8 ) 

Ira 

wiv i i i_  ( b t 42 ) 

lbl 

vv Ki  i L ( o * Ob) 

xbl 

v ' K 1 I ti  ( 0 r 0 7 ) 

115-1 

w K 1 I I ( 0 * 68 ) 

ua 

jU 

CON  1 i i mUL 

ibi 

ft  h XT  E ( b f 4 2. ) 

ibi 

bu  fU  (b7»bb)f  NCo.-iF* 

ibi 

0 / 

NLOMP=£ 

' 4=1 

ibi 

Ju-i 

ibi 

oO  i u 7 

lbl 

o 

KEAu  (2*4U)  auUhO 

lbl 

i F IXLOmU)  06*1*04 

161 

JV 

REAu  (2*41)  c_fJG’K  * u>>  i £_ 

161 

Kc.Au  (2*41)  EimOu  * u/ A | L 

lbl 

imCOMF^I 

1B1 

N=i 

lbl 

vJ  w — X 

lbl 

6o  10  b 

lbl 

L 

lbl 

4U 

F ormaT  ( 6F lu . b) 

lbl 

41 

formai  (obh 

ibi 

1 * Ab  * i\t ) 

ibi 

42 

Format  cix) 

lbl 

40 

FoRmA  1 1 1FI1 ) 

1B1 

44 

format  (2X*2bHMMAlMuM  CONCRETE  STRESS  = * F8 . 1 * 5H  ( PSI ) ) 

1B1 

4b 

FORMAT  l2X*bbHNUMuEK  OF  PASSES  REQUIRED  FOR  NEUTRAL  AXIS  SOLUT ION  161 

l = * 14; 

161 

40 

Format  (iex* 14*fi4.x>2X*7hTeNSIle) 

161 

4 7 

Forma T ( lbX » 1 4 » F 14 . i * 2X  * 1 1HC0MPRESSI ve ) 

lbl 

40 

FORMAT  (llX*04HblAXiAL  BENDING  - WORKING  STRESS  - 

PROGRAM (13=R3=C 1131 

libTT 

lbl 

4y 

FoRmaT  ( 2X * 70HMEMBEK  HEIGHT  MEMBER  WIDTH  MOMENT 

ABT  • 

MOMENT  ABT1B1' 

1.  TnRUbT  AT  MOOULaR) 

ibi  ; 

OU 

Format  (2X*72HAl0NG  Y-AXIS  ALONG  X-AXIS  X=AXIS 

C • L • 

Y-AXIS  C.L161 

i • C • L • KAl Xo) 

1B1 

bi 

Format  (3x»oih( inches)  (inches)  (kip-ft) 

(KIP=FT)  1B1 1 

1 IrIPu))  1B1 

D^:  FoKmmT  ( IX * 7bH********************************  INPUT  DATA  ******1B1 

X*********************** ) 1B1 

Db  FORMAT  UX»F11.3»hlD.3>F13.3rF13*3»F12.3»F10.2) 1B1 

bV  "FoRmaT  (17X»46HuEbIoNATEL>  BAR  X-AXIS  BAR  Y-AXIS  BAR)  1B1 

D ~j  i- okhaT  (!7X»42HbAR  NUMBER COORDINATE  COORDINATE AREA) 1B1 

do  FoRmhT  (i9X»Fb.U'Fio.3#F13.3»Fll»2)  lBl 

d 7 FORMmT  (33Xr30Hl INCHES)  (INCHES)  (SQ#IN.)>  161 


Du  FoRmm  f v lx » 72H**** ***************************  OUTPUT  '**★********131 


x ******************* * ) lbl 

D * “ "TukmmT  (2X»  jJHSU.'“uF~tCCLNTRICITY  To  THICKNESS  IN  BOTH  DIRECTIONS”! Hi 
1= » Fb » o ) lbl 

u u F'oKMmT  l 2X  f 3oHThL  nloTRAL  AXIS  INTERSECTS  THE  X- AX  I S » F8  • 2 » 24HTT  NC  HI  d 1 

L d)  rROm  Thl  ORIuIn)  lbl 

oi  FORMAT  ( clA » 3bHT he.  NuOTral.  AXIS  INTERSECTS  THE  Y— AXIS»F8«2»24H(  INCH1B1* 

1 D)  rnO/i  I he.  jRl'Jil’j) lBl 

be  ' Format  12X»4oHTnL  EuC.  FROM  C.L.  OF  MEMBER  ALONG  THE  X-AXIS  = rF7.1Bl 

xei  UH  ( INCHES) ) 1B1 

ou  FORmmI  ( 2X 1 4BHTfiE  ECC.  FROM  C.L.  OF  MEMBER  ALONG  THE  Y-AXIS  - »F7.1B1 
11.  t on  ( iNCht-S)  ) 1B1 

oh  f okn a i ii.x»/jhMLu  Compressive  reinforcement  is  transformed  for  neuibi 


iTRmL  AX i d SocJ  1 1 O. 4 ) __ 1B1 

ruAwiA  I ”(2Xf  ooHalu  "uomRRESSIVE  REINFORCEMENT  IS  IGNORED  FOR  NEUTRAL1B1, 
1 AX  Id  SOLUTION)  1B1 


oo 

o7 

Ob 

o9 

For mm  I 
f orma r 

( l7X»bHCui‘(PU  1 LRriDXf  AHTYPE) 

( lbX t 29HucS i uNATE J STRESS  STRESS) 

1B1; 

1B1: 

FuRmm  r 
F OkmmT 

(lbXrl9huAr\  hOMBEK  (PSI)) 

(2X»S7HPRuPEr1IES  OF  SECTION  (EFF.  CONCRETE  + TRANSFORMED 

1B1 

S1B1 

1 TuEL)  ) 

1B1 

7 0 

F ORMA r 

(7X»4HAREA,8a»4HIIX) r9X»4HI (Y) ) 

1B1 

/I 
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SHEET 


OF 


ENGR  i 


date 


EsT  CASE  NO.  1 FOk  IB) 

BIAXIAL  BENDING  - WORKING  STRESS  - PR0GRAM(13*R3*CU8> 

• OUTPUT  too* 

SUM  OF  ECCENTRICITY  TO  THICKNESS  IN  BOTH  DIRECTIONS  »1.03S 
the  ecc.  from  C.L.  OF  MEMBER  ALONG  The  X-AXIS  » 20.00 ( I NCHES ) 

THE  ECC.  FROM  Cl..  OF  MEMBER  ALONG  THE  Y-AXIS  * • 0 0 f INCHES) 

ALL  COMPRESSIVE  REINFORCEMENT  IS  TRANSFORMED  FOR  NEUTRAL  AXIS  SOLUTION 
NUMBER  of  passes  required  for  NEUTRAL,  axis  solution  « 5 

THE  NEUTRAL  AXIS  INTERSECTS  THE  X-AXIS  I2.66(INCH  SI  FROM  THE  ORIGIN 

THE  NEUTRAL  AXIS  INTERSECTS  THE  Y-AXIS  29.2MINCH  S)  FROM  THE  ORIGIN 

PROPERTIES  OF  SECTION  (FFF.  CONCRFTE  + TRANSFORMED  STEEL) 

AREA  MX)  I ( Y ) 

237. OR  20007.0  19S33.9 

MAXIMUM  CONCRETE  STRESS  ■ 13&O,0(PSl) 


computer 

designated 

BAR  NUMBER 


STRESS  STRESS 
< FS  I ) 


TYPE 


19356.7  COMPRESSIVE 


2 

3 

R 

5 

6 
7 
0 


-987.6  TENSILE 
11653,6  TENSILE 


138  1 1 ♦ I COMPRESSIVE 
MB26.H  TENSILE 
A265.5  COMPRESSIVE 


-6533.2  TENSILE 
17199*2  TENSILE 


SHEET 


OF 


ENGR  , 


D ATF 


EST  CASE  NO,  I FOR  1B1 

BIAXIAL  PENDING  - WORKING  STRESS  - PROGRAM! 13=R3*C118) 

output  *.*•••••••**••***••***••♦••♦♦* 

SUM  OF  ECCENTRICITY  TO  THICKNESS  IN  BOTH  DIRECTIONS  *1*035 

THE  ECC.  FROM  C*L.  OF  MEMBER  ALONG  THE  X-AXIS  ■ 20 . 00 ( I NC HE S ) 

THE  ECC.  FROM  c.L.  OF  MEMBER  ALONG  THE  Y-AXIS  ■ 8,001  INCHES) 

ALL  COMPRESSIVE  REINFORCEMENT  IS  IGNORED  FOR  NEUTRAL  AXIS  SOLUTION 

NUMBER  OF  PASSFS  REQUIRED  FOR  NEUTrAL  AXIS  SOLUTION  * S 

THE  NEUTRAL  AXIS  INTERSECTS  THE  X-AXIS  l 3 • 8 7 I I N C H S)  EROM  THE  ORIGIN 

THE  NEUTRAL  AXIS  INTERSECTS  THE  Y-AXIS  32.53IINCH  S)  FROM  THE  ORIGIN 

PROPERTIES  OF  SECTION  (EFF.  CONCRETE  ♦ TRANSFORMED  STEEL) 

AREA  MX)  MY) 

208,72  17810,5  20755.3 

MAXIMUM  CONCRETE  STRESS  = 1699. MIPS!) 


computer 

DESIGNATED 
BAR  NUMBER 


STRESS  STRESS 
(PSI) 


TYPE 


2 

3 

5 

7 

8 


-76.8  TENSILE 

12688. 8 TENSILE 
15822.6  TENSILE 
-6388.9  TENSILE 

18956.9  TENSILE 
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■ : 
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LISTING  AND  SAMPLE  OUTPUT  FOR  1.B.2 
"Biaxial  Bending  of  Irregular  Columns" 


//  JOB  T 
//  f OK 

*loCS(  CARD*  1 1 3^FH InTeR* DiS* ) 

C wSD  Ot  ooNCREIE  COLUMNS  WITH  ttlAXIAL  ENl)  MOMENTS  (LOADS  AND  X-SEC1B2 

C CONST  AN ( wITti  RESPECT  Tu  LENGTH)  1R2 

DIMENSION  XCON  ( luO ) ♦ YcOn(IOO)*  AS(IOU)*  XISTl(IUO)*  YlSTL(lOO)*  B1B2 
1 ARN  ( i (J() ) ► X2bl  L ( 1()IJ ) * Y?bTL(10U>»  tZ(100)*  TITLE(20)*  C0DE(5)  1B2 

i CON i — 1 1B2 

iC0N2=2  1B2 

iC0N3=3  162 

1 CON*4  — 4 162 

NCONl=l  1B2 

NsTl.  1-1  1B2 

1 At  AD  (2*11.3)  UTlE  1B2 

HEAD  (2*97)  nCON  * NSTL • NLu  * ISwTl » 1SWT2  * IClMT  1B2 

1 E (iCLMT)  3*2*3  1B2 

2 1 C L M I -1 h 1B2 

3 it  (noon;  10*1u*h  1B2 

4 1 ~NC  0(4 1 1B2 

b XC0N(1)=U.  1B2 

TCON(l)=u.  1B2 

1=1-1  1B2 

it  (nCON— i)  S»to»6  1B2 

b DO  7 i=l»NC0N»3  1B2 

J=I  + l 1B2 

K = I+2  1B2 

7 HEAD  (2»9M)  XCON( 1 ) »Y(ONl 1) »XCON( J) »YcON(j) »XC0N(K) » YCON(K)  1B2 

IF  ( XCON l ] ) -XCON ( NOON ) ) 0*9*8  1B2 

b wrITc  (3*113)  1 I ILt.  1B2 

wr  I Tt  ( 3 * lib)  1B2 

do  To  96  1B2 

9 It  ( ICONI 1 ) -YOON (NCON)  ) o * 1 0 ♦ 8 1B2 

10  it  ( nST L ) lb  * lb  * 1 1 1B2 

11  i=NSTLl  1B2 

12  AS ( 1 ) — U • 1B2 

X 1 STi_  ( 1 ) — n • 1B2 

Y ISTl ( 1 ) -0 • 1B2 

bAHN(l)=U.  1B2 

X2.STL(i)=u.  1R2 

Y?STl(1)-u.  1B2 

1=1-1  1B2 

it  (nSTL-1)  12*13*13  1B2 

13  Do  14  J=1*NS1L  1B2 

14  READ  ( 2 * 9 A ) Ab( J)  *X1STl( J)  »YlSrL( J) »bAHN(J) *X2STL(J) * Y2STL( J)  1B2 

lb  HEAD  ( 2 » 1 U 1 ) CODE  *t’»XM.Yivi*RATIO»H»ACCK  1B2 

1TCNT  = ()  1B2 

KSWC=1  1B2 

KSWD=1  1B2 

KSVvE  = l 1B2 

KSWH=1  1B2 

KSWh=l  1B2 

OnEN=B*R«T lO-l • 1B2 

HrMN=ONEn  1R2 

it  (ibwTl)  18*17*16  1B2 

lb  Ht AD  (2»ilb)  1DEnT*S*T*U  1B2 

WRlTr.  (3*117)  lDt  NT  1B2 

WRITE  (3*109)  S»(*U  1B2 

00  To  78  1B2 

17  KSWFZ=1  162 

KSW0=1  1R2 

1TCNT  = 1T0N1 +1  1B2 

it  ( 1TCNI -iCLMT ) 19*19,lo  1B2 
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if  U 
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2b 

2b 

27 

2b 

29 

30 

31 

32 

33 

34 

3b 

3b 


toRlTr.  (3*114)  IB? 

W R 1 T F (3*104)  1 B e 

WklTt  13*  1 U b ) IB? 

WRlTt  ( 3 » 1 U 6 ) GOiiL  IB? 

toRlTF_(3»107)  1 H 2 

WRlTt  ( 3 * 10  8)  F1*  xM»  YM.nA  I iO*H*  ACCR  IB? 

^KlTfc.  (3* 104 ) IB? 

bU  To  93  IB? 

AzO.  IB? 

ABARa-U.  ib* 

AhARY=U.  IB? 

x I Nm  . IB? 

Y 1 N— U • IB? 

XYlO-O.  IB ? 

1-1  IB? 

X I =XGON ( i ) 1B2 

Y l=YLOr\J  ( i ) IB/; 

GO  TO  (?u  **b) * Kswl  IB? 

UO  2h  i-n • KCOFt  1B2 

X I — XCON ( i ) 1B2 

XlMlzXLOMl-i  ) IB? 

Y I = YCUN ( i ) IB? 

Y 1 Ml  — YCOn ( 1 — 1 ) IB? 

GO  To  ( 2 1 * 2b ) * KStoC  1B2 

ue.LX-Xl-xIMl  1 B«f 

V1=Y1+YIWH  1B2 

V2  = Xi  + xIi*il  1B2 

V3=X1*YI  1B2 

\/4=XlMl*Y  1M1  1B2 

Y b = V 1 * V 1 1B2 

A^A+  ( L/tLx/<i  ) *\j  1 1B2 

Ah  AH  X = AHaKX+  (OLLX/b.  )*(Vl*\/2  + V3+\/4)  lb2 

AR  AR  f-AR«KH  (utLx/n*  )*(\/b-tI*YiMl)  1B2 

XlN=xlN+U.'tLX/12.  )*(\/2*Vt*vl+2.*(V3*Xl  + V4*XlMl)  ) 1B2 

Y lN=r  1N+  ( 1 >tLX/  12  • )*(VB*VX-2.*Y1*YIM1*\/1)  1B2 

X Y I N— X Y I lj+  (DFLX/24.  ) * ( xl* l Vb+2.*Y  I*Y1  ) +X1M1* ( Vb+2  . * Y 1 M 1 * Y 1 M 1 ) ) 1B2 

It-  (ibwT2)  22*23*22  1B2 

WkITl  (3*99)  IICNT* 1COM  1B2 

W R T T r.  (3*100)  A*aHaRX*mBMRY.XIN. YIN*XY1N  1B2 

w h 1 T i-_  (3*100)  Xl»Yl*Xl(4l*YiMl  1B2 

go  To  ( ?4 * 49  * 49 » 4b ) » KSwh  1B2 

GoNT  il\iUE  1 B2 

GO  To  b?  1B2 

R I=U+b*Xi-H  *YI  IBP 

GO  To  (?t>*02*30)*  Kbw3  1B2 

Ot-  L=F  i -F / l i ) 1B2 

L)F  LL-UtL  1B2 

IF  (OFL)  26*29*29  1B2 

bfc  LL--OFLL  1B2 

IF  (OLLL-mGCR)  32*32*31  1B2 

OtL=Fl  1B2 

GO  To  27  1B2 

K s w| ) — 1 1B2 

KSW3=2  1B2 

F / ( I ) — F T 1B2 

IF  (FI)  33  * 3b  * 35  1B2 

GO  To  l 3h  » 24  » 39 ) * KbrtF2  1B2 

KsWF/_  = 2 1B2 

Go  TO  20  1B2 

GO  TO  (3t, #37*21)#  KSwF  / IBP 

KSWF/=3  1B2 

Go  To  20  1B2 


1.B.2 


2 


>7  kSW(-Z  = 2) 

KSto4z^ 

id  bh  LX-X  1-a  I Nil 

LjhL.Y-Y  i-l  l Nil 
H I0|)=FI/  lh  i-HZ(  1-1  > ) 

X I NT  = X 1 -ufc.LX*F 10U 
Y I NT- Y 1 — Uh LY*h 10iJ 
bO  Tb  l 4u  » 4b ) » KSW4 
J9  KbWF/'-2 

Kb*4-1 
bb  T b bH 

Hj  b U T b ( 4 1 * 4 b ) » KSWu 

4l  KSWb-rd 

X 1 NT  L = X I N 1 

Y fN  Tl-Y In! 

bO  To  (Qr>»4?*44).  KSwb/ 

\'<L 

4 0 X I = X 1 N I 

Y I = Y H4l 
b()  T b cL  1 

44  X 1 M 1 -X 1 N I 

Y jMlzY IN i 
bO  Tb  t>\ 

4b  KSWb-1 

KsWH-4 
bO  lb  4.3 

4b  bU  Tb  141 .47 ) » KSWb 

47  KSWb-1 

KSWh-^. 

X 1 M 1 = X 1 N 1 L. 

Y IMI^YINIL 
bb  Tb  4 0 
4b 

X 1=X INI L 

Y I - Y IN  IL 
b 0 T b 4 4 

49  XI=XbON(i) 

Y 1 — Y bON ( i ) 

b()  Tb  l 9b  » bO  » bi  » Mb  ) t KSWH 
bU  KSWH-1 

bO  To  44 
bl  KS'wH-I 

bO  Tb  ^4 

b2  bo  Tb  ( bo  » bl ) * KSWU 

bO  14-  (nSTU  9b»Vb»b4 

b4  OO  hi  J=i ♦ NS  t L 

ASJ=4b ( J) 

Xl=XlblLl J) 

Y 1-YiSTLiJ) 
bA^NO-hAKlM  IJ  ) 

X2=X2STL< b) 

Y^  = Y^.S1L  l J) 

KSWH— 1 

bb  TO  (bb*ob)»  KSWb 

bb  AH N=HKMN*ASJ*BARNO 

If-  ( oAKNb  — 1 • U ) 9o • bb  » S7 
bb  H A AC  4 u . 

X?  = X i 

Y ? = Y 1 

bO  Tb  bA 

b7  HaAC— (^.  •ti*bAHiiO—l  . U ) / ( hi  . U*  (BAHNO-1  • 0 ) ) 

bb  Az  A4- aLN 


1B2 

lb2 

162 

1H? 

1B2 

1B2 

162 

1B2 

1B2 

162 

1B2 

1B2 

1B2 

162 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

162 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

162 

1B2 

1B2 

1B2 

162 

162 

1B2 

1B2 

1B2 

162 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 


1.B.2 


3 


A h A k X z A R A K A + ( A L N * ( X 1 + X 2 ) / c • 0 ) lb? 

AlNzxlN  + 6tN*(Xl*X?>  + FkAb*lA2  — X 1 ) ♦ #2  ) 1 H ? 

Y jNzr  iu  + Mt  N*  ( Yl*Y2+FkAo*  l Y 2 — Y 1 ) **2  ) 10? 

A b A k f z A B m K Y + A t N * l Y 1 + Y 2 ) / 2 . U IB? 


XY  1 N- A Y I n + At.H*  ( ( (Xl*Y?+Xt*Yl)/2 
if-  (ISwTtt)  b9»6i)»b9 
b9  VnklTt  ( *\  » 49  ) 1 T CnT  » I LON2 

vv  M IT  h ( 3 t i IJ  0 ) A*AHAKX»MhHhY»XII\i 
Vv  * I T t.  < 3 • x U 0 J Xl»Yl»X>>»Yc 
6(J  b()  To  (hi  »t >Z)  f KbWh 

o 1 loNT  i buF 

60  To  ;s 
O?  bARNOzHWN 

M =F  i 
x i =x^  + i »x 

Y 1 = Y 2 + 1 > Y 
X2=X2STL (o) 
ii  2 = Y2b  r L l o ) 
l\S«H-  i 

Ob  ih  (hi)  t>4»64»6b 

64  BkMNZKATib 

bO  T o 6b 

bb  bvMN  — OTviE-h 

o O T o b b 

bt>  h 1 =U  + S*Xi-h  I * Y 1 

ih  (bAkNO-i.lt)  9h»b3.n7 

6 7 h >>  = u + b*x^+  1 * Y2 

ih  (hi)  l)9»bhMD8 
6b  ih  (h?)  /u»fab»6b 

69  Ih  ( h ?! ) h4  # 7 1)  » 7 0 

7U  bx  = ( X2-X  1 ) / ( oAkNo-1  . U ) 

b Y — ( Y2-Y1 ) / (bAKNU-i . U ) 

LOUN ( =U . U 
ou  To  72 

71  Al=Xi+L)X 
r 1 =Y l *uY 

72  h I=II4S*X1+  I *Y1 

ih  ( h 1 *F  i ) 7 4 » 7 4 » 7 b 

7 5 CoUN f=C0UN I +1 . U 

ih  ( COUN  f — b AKNb  ) 7i»BX»9o 
74  Ph’NZitAkNo-COUNT 

HaHNu  = 1()IJIj  l 
X2=X 1-oX 

Y 2 = Y i-bY 
Xl=X  LSTL 1 j) 

Y 1 = Y l b I L ( b ) 

b()  To 

7b  b A k X — a h A h a / A 

bAk Y^rthAh Y / A 

X0l  = x ilxl-AbAkX*HAkX 

Y O 1 — Y lN-AbARY*bAKY 

X YUI =XY IN— AbAkX*nAKY 
X o M — X hi  — P + b A K X 

Y ()M=  YM-P*hXH  Y 

Ci  j-XuM-Y  uh  *X  Y 0 i / YO  i 

U)=Xbl-XYOi*XYOl/YOl 

UN=  Yohi-XUh*X  Y 0 i / XO  i 

Un  = Yoi-X  Tbl*XYUl/XOl 

SzCN/bb 

TzON/UU 

Uz (P-S*AomKX-T  ♦AoAKY  ) / A 


0 ) +FRAC* ( X2-X1 ) * ( Y2-Y  i ) ) lb? 

IF? 

IB? 

YIN»XYIN  lb? 

lBf 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

1 

IB? 

IB* 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

IB? 

1B2 

IB? 

IB? 

IB? 

IB? 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 

1B2 


1.B.2 


4 


iF(lSAl2)7r>r/7r7t:>  IB? 

7r>  rtKlTr  1 3 r 90 ) 1 I CnT  r IbOu.X  1B2 

WK'lTr.  (^r  )U0)  AOi  r Y Oi  , X Ybi  r XOm  » YoM  1B2 

AH  lit.  (3riU(J)  LN»Cu»t)i'l»Du  IB? 
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LISTING  AND  SAMPLE  OUTPUT  FOR  1.B.3 
"Tied  Concrete  Columns,  Planar  Bending" 
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* 1 vc  .j  l ',n,\u  # x 1 v 2 ' ' f'  1 i J I Li\  * .ji  jN  i 
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I iJ!"'IL  I l\  i C/iL  1 1 '—.j  c JL'Jril'*  mNAL  fSIb 
i - i\  J ( d t X ) FT  ihU'flii.  »u»u 

ih.  >j  i x:  * b ) Abr* 

• i:\xli_  ( J(  4 ) 

...V  x I I.  I V t J ) 

..iu  L.  I v r o ) 

,.vxi  ._  l ji  / ) F T r F Op  r 4 » Oil » t>r  L)» Of  AS » ASP  

■•  — ^ f . S t ' 

r'  v—  l . \ j +■(  • jr  ) / l i.i  * I ) 
i.y  i —J/  I 

l • > — r I / ( ij’j  + rCi') 

nuF^K-l.-io+hU1)/  i j ji  • 

»r  I — v , , O i GtJ  + I ) / it.  • 

| \ 1 I _ lj»u) 

. i I u.  ( v r b ) Hvh  ► vi.'  t 

f > i . r 1 i . I ) *'c»)  ♦ ( x ./  i 1 .+K)  ) ) + ( . 1*  (DC  r**i)  ) ) / l ( (PG*£M)  * ( ( 1 . 


1 (J  3 
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lb3 
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lb3 
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lb3 
1B3 
J.b3 
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R ) / 1 6 3 
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ruini.a  (j  • o » r j • j » '4h  a • x i h b * 3 ) lb3 

r-  w < x Pi/-,  V tdrb.u)  lb3 

I uABA'i  l » i»_»  l ‘U  r » i^gbAC  lUi  jSlf  ,'Aiivi£TRlCALT  IEDCOLJMNANALYSIS  ( WSD)  » ) lb3 

r Uivi'-iM  i ( 1 u * ) 1B3 

r u.<,  •!/•■-»  I t'uMoUr'i-T'  fT3Br  ' FC  » * * f T4  7 r ' C ’ rT53»  «N»  »T61r  »8*  rTo9f  *T*  rT7lB3 
l / » ' j ' r i ’o'  * i yx* ' mo’ » l luo  > 1 Mb' M ) 163 
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